Thank you so much Joel. Sorry for the delayed "Thank you!", I couldnt find my
thread in the web site..now I learned how to do it...

Thank you so much for helping me. It will be a pleasure to show you the
final result if you wish to...

Happy New Year and all the best!

"joel" wrote:


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

.