Hi,
Mudraker is right ... your question needs clarification ...
Are you looking for code along these lines ...
Sub MyFind()
Dim Myfound as Range
Dim Co As Range
Set Co = Range("A1:A100") ' <----- adjust to your needs
set myfound = Co.Cells.Find(What:=MyValue, After:=ActiveCell, _
LookIn:=xlValues, LookAt:= xlWhole, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
if myfound is nothing then
' code for find failed, what should happen here?
msgbox "some message here!"
exit sub
else
' code for find succeeded, what should happen here?
myfound.activate
end if
End Sub
HTH
Carim
Bookmarks