Selection.Find issue

[Nos]

Hi guys, I was hoping someone could give me some advice.

I'm running a Find through a specific selection. It works perfectly except for when the value it is searching for is not present in the selection. I tried to use the On Error command but the run time error box still comes up? Is there another way I can divert the macro if the value I am searching for is not found in the selection? (I need to take into account that sometimes the macro will search for values that are not in the selection.



Thanks for your help

Selection.Find(What:=OfficeRecNo, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
        :=False, SearchFormat:=False).Activate

 

[Derek]

Hi there

EDITTED:

Try this:

On Error GoTo OUT
Selection.Find(What:="OfficeRecNo", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlwhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
OUT:
End Sub

regards
Derek

 

[Nos]

Unfortunatly that doesn't seem to be working, I'm getting

Run time error '91'
Object variable or with block variable not set

Thanks for the help though

 

[agihcam]

how about?

With Selection
Set c = .Find(OfficeRecNo, , , xlWhole)
If Not c Is Nothing Then
c.Select
End If
End With

 

[Nos]

Thanks so much, that seems to have solved the problem.