Hi,

I am trying to write code to programmatically display the built-in
dialog to Find/Replace (using Excel XP). I tried:

Application.Dialogs(xlDialogFormulaFind).Show and
Application.Dialogs(xlDialogFormulaReplace).Show

These bring up the 97 version of the dialog, and seem to screw up the
Excel session after running it, where even manually clicking Edit -
Find will continue to bring up the old dialog box.

Is there a way to display the XP version of the Find/Replace dialog
box?

Thanks!

Sub AA()
CommandBars("Edit").Controls("Find...").Execute
End Sub

--
Regards,
Tom Ogilvy


"kevboy" wrote in message
oups.com...
Hi,

I am trying to write code to programmatically display the built-in
dialog to Find/Replace (using Excel XP). I tried:

Application.Dialogs(xlDialogFormulaFind).Show and
Application.Dialogs(xlDialogFormulaReplace).Show

These bring up the 97 version of the dialog, and seem to screw up the
Excel session after running it, where even manually clicking Edit -
Find will continue to bring up the old dialog box.

Is there a way to display the XP version of the Find/Replace dialog
box?

Thanks!

Tom,

Thanks! I was trying to make it harder than it was.

Regards,
Kevin