How to call search function in excel using code

[jackal_yap]

Hi,

i had try use the macro recorder to record the search function.
but i don't get any code at the recorder there!
Any one knw what is the code to call the search function!

Thanks you :banghead:

[jproffer]

You mean the Find command?

With ActiveSheet.Range("A1:IV65536")
Set x = .Find("Something", LookIn:=xlValues)
End With
Range(x.Address).Select

[jackal_yap]

hi,

Thanks you.

ya the find function.
erm.......
i want to call the find function out and let me key in data for search.
without using ctrl+F!
i want add some more code in the find funtion there!
any one knw the code for find function?

Thanks for helping

[mikerickson]

Is this what you are looking for?
Application.Dialogs(xlDialogFormulaFind).Show

[jproffer]

Or...


inpt=InputBox("Text to Find","FIND")

With ActiveSheet.Range("A1:IV65536")
Set x = .Find(inpt, LookIn:=xlValues)
End With
Range(x.Address).Select