Try dialogs either the find or replace below. Sues arg1,arg2,arg3 ...
to pass the parameters to the dialog. The parameter lists is shown
below along with the code.

'Parameter list for Find
'xlDialogFormulaFind Text, in_num, at_num, by_num, dir_num,
'match_case, 'match_byte

'Parameter list for replace
'xlDialogFormulaReplace find_text, replace_text, look_at, look_by,
active_cell,
'match_case, match_byte

Set FindDialog = Application.Dialogs(xlDialogFormulaFind)

With FindDialog
.Show arg1:="abc"
End With


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

Microsoft Office Help