Dim rng as Range
set rng = Cells.Find(What:=Range("A1"), _
After:=Range("A1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
if rng.Address = "$A$1" then
msgbox "Not found"
else
rng.Select
End if

--
Regards,
Tom Ogilvy


"T De Villiers" wrote:


In A1 I have value "taz" (this will change according to user)

I would now like to find "taz" (or alt value entered by user) within
the sheet

My code isnt quite working:

Cells.Find (Range("A1"))


Thanks for any help


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=566092