Error Trapping

[Guest]

How do I generate an error message such as "Macro will be aborted - The Find
Function cannot return a valid value" if the string "Cross" is not found in
the selection.

Selection.Find(What:="Cross", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Thanks

 

[Bob Phillips]

Set cell = Selection.Find(What:="Cross", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If cell Is Nothing Then
MsgBox "Macro will be aborted - The Find Function cannot return a valid
value"
Exit sub
end if

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

 

[Guest]

use a range object and test if it is nothing something like this...

dim rng as range

set rng = Selection.Find(What:="Cross", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

if rng is nothing then
msgbox "Macro will be aborted - The Find Function cannot return a valid
value"
else
rng.activate
end if

 

[Guest]

Hi Rafi,

you could use this:

Public Sub Find_Cross()
Dim rngFound As Range

Set rngFound = Selection.Find(What:="Cross", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If rngFound Is Nothing Then
MsgBox "Macro will be aborted - The Find Function cannot return a
valid value"
Else
rngFound.Activate
End If

End Sub

Did this help you?

Best wishes,
Eric