Using find in macro without error if nothing found

[petemalpuss]

Hi,

I'm trying to write some VBA which will allow me to find certain instances of data across a number of different sheets and copy this into another sheet.

However if the sheet doesn't contain the data I'm searching for an error pops up and the macro dies, is there a way to search where if the macro doesn't find anything it skips to the next line?

Many thanks,
Pete

 

[RoryA]

Like this:

Dim rngFound as Excel.Range
set rngFound = Cells.Find(...)
If not rngFound Is Nothing Then
   ' value was found - do whatever you need to here
Else
    msgbox "Value not found"
End If