Glad to help

--
Don Guillett
SalesAid Software

"Susana C via OfficeKB.com" <u21183@uwe wrote in message
news:6a9c2506ea6c9@uwe...
Thanks Don! You're the best!

Don Guillett wrote:
Sub findvalue()
On Error GoTo nono
ans = InputBox("Search for?")
Columns(1).Find(ans).entirerow.Select
Exit Sub
nono:
MsgBox "not found"
Exit Sub

I'm sorry, one more thing also... if it doesn't find what I've entered,
can
[quoted text clipped - 11 lines]

Thanks for any help!

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200612/1