If find is true then.....

Hey everyone, quick question. Im looking to have some code that will first try to find a value on a page. If it can't find that value, then it does a set of actions, otherwise, it does a different set of actions. At first I thought to use an If, then, else statement, but I don't really know how to incorporate the Find condition. If I could get some help that'd be great. thanks!!!

bump bump

Sub macro()
On Error Resume Next
Cells.Find("test").Address
If Err.Description <> "" Then ' did not find the text
'your code
Else 'found the text
'your code
End If

End Sub

Dim rng as Range
Dim sTarget as String

sTarget = "ABCDE"
set rng =Cells.Find(What:=sTarget, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
if not rng is nothing then
msgbox "found in cell " & rng.Address
Else
msgbox "Not found"
End Sub


--
Regards,
Tom Ogilvy


"jpizzle" <jpizzle.1rc861_1119964140.2179@excelforum-nospam.com> wrote in
message news:jpizzle.1rc861_1119964140.2179@excelforum-nospam.com...
>
> Hey everyone, quick question. Im looking to have some code that will
> first try to find a value on a page. If it can't find that value, then
> it does a set of actions, otherwise, it does a different set of actions.
> At first I thought to use an If, then, else statement, but I don't
> really know how to incorporate the Find condition. If I could get some
> help that'd be great. thanks!!!
>
>
> --
> jpizzle
> ------------------------------------------------------------------------
> jpizzle's Profile:
http://www.excelforum.com/member.php...o&userid=23920
> View this thread: http://www.excelforum.com/showthread...hreadid=382771
>