Thread: Find Macro
View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.misc
Susana C via OfficeKB.com Susana C via OfficeKB.com is offline
external usenet poster
 
Posts: 7
Default Find Macro

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