You can use the standard built in dialog like this

Sub test()

Set FindDialog = Application.Dialogs(xlDialogFormulaFind)

Results = FindDialog.Show ' results is a boolean

MyResults = ActiveCell.Value

End Sub


I've never been able to figure out how to get the results from htis
dialog. It seems to only bring up a tool that the user can use but not
the VBA code.

The parameter are :
text, in_num, at_num, by_num, dir_num, match_case, match_byte

So you can use the following to find the string 123

Results = FindDialog.Show(arg1:="123")


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=163850

Microsoft Office Help