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

--
Don Guillett
SalesAid Software

"Susana C via OfficeKB.com" <u21183@uwe wrote in message
news:6a9bf0d77dff3@uwe...
I'm sorry, one more thing also... if it doesn't find what I've entered,
can
it return a message to say "Code not found" instead of bringing the debug
editor up?

Thanks again!

Susana C wrote:
Thank you. This does close the dialogue box; is there a way to make it
hightlight/ select the whole row?

This might be easier.

[quoted text clipped - 8 lines]

Thanks for any help!

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