Look at the Find Method example in the VBA help. You need to add an
Else clause to the If statement.

The above code I gave isn't complete, but should give you some clues of
how to fit your requirements into the example.