How to limit FIND searches to a specified range ?

[aca]

I need to check if there are occurrences of a word in column A. I use this simple code:

Please Login or Register  to view this content.

It works all right bcs FIND returns ‘Error’ when there are no occurrences or no more.
The trouble is that it will go on beyond the specified range of column A and find occurrences anywhere in the worksheet, which I don't want. How can I restrict the search to the specified range only?
(I know there are other functions like For… Next… with Set…, etc. But FIND is more economical in terms of code lines and I want to keep it short bcs my macro is already very long).

[xladept]

With your code:

Please Login or Register  to view this content.

But why not:

Please Login or Register  to view this content.

[aca]

Thanks very much, xladept. That does the thing perfectly.
Yes, I very willingly do you a little justice by adding to your reputation.
ACA

[xladept]

You're welcome and thanks for the rep!