In your macro you are using function .Find, I don't see any .Select. Or, do you want to prevent users from selecting.

__________________
Difficult is not to know but to share what you know (Han Fei Tzu reworked)