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

--
Don Guillett
SalesAid Software

"Susana C via OfficeKB.com" <u21183@uwe wrote in message
news:6a9be52398340@uwe...
Thank you. This does close the dialogue box; is there a way to make it
hightlight/ select the whole row?

Don Guillett wrote:
This might be easier.

Sub findvalue()
ans = InputBox("Search for?")
Columns(1).Find(ans).Select
End Sub

Hello,

[quoted text clipped - 8 lines]

Thanks for any help!

--
Message posted via http://www.officekb.com