This might be easier.

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

--
Don Guillett
SalesAid Software

"Susana C via OfficeKB.com" <u21183@uwe wrote in message
news:6a9b9915c300f@uwe...
Hello,

I've written a simple macro that searches column A for whatever the user
inputs in the find dialogue box. I would like to now close the box and
hightlight or select the found row.

Here's what I have so far:

Columns("A:A").Select
Application.Dialogs(xlDialogFormulaFind).Show

Thanks for any help!

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