Alternatively, but still along the lines proposed by Paul Schreiner,
you could make your code more concise by using this approach which
avoids all the activating and selecting that will slow your code down
once you apply your code to larger ranges:
Dim searchRange As Range
Set searchRange
At the beginning of the macro, add:
On Error Resume Next
then, after the .Find command, use:
if (err.number > 0) then exit sub
From: Tommy
To: MS EXCEL AND VBA MACROS
Sent: Wednesday, September 30, 2009 11:15:04 AM
Subject: $$Excel-Macros$$ Find & Clear
I
