Find/Replace built-in dialog in XP

[kevboy]

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 Ogilvy]

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

 

[kevboy]

Tom,

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

Regards,
Kevin