handling an error

[Lino]

Hello

i have the following code...how can i set this up that if it doesn't find what it is looking for then not to throw a runtime error?

Selection.Find(What:="9/11/01", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select

thanks,

lino

 

[just_jon]

On Error Resume Next
Selection.Find(What:="9/11/01", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select
On Error Goto 0

But, depending what else goes on, an untagged failure here may cause unexpected results, or fatal error, later...

 

[Norie]

What do you actually want the code to do?

Can you post the rest of it?

You could try something like this:

Dim rng As Range

Set rng = Selection.Find(What:="9/11/01", After:=ActiveCell, LookIn:=xlValues, _ 
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
MatchCase:=False)

If Not (rng Is Nothing) Then
     rng.Select
End If

BTW you don't necessarily need to Select/Activate ranges to work with them.

 

[Lino]

thanks,

that's exactly what i was looking for