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

--
Regards,
Tom Ogilvy


"kevboy" <themckinneys@gmail.com> wrote in message
news:1135022311.609935.134900@g49g2000cwa.googlegroups.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!
>