Pulling up the Find and Replace Dialog via Code

[kraljb]

I have a macro that currently uses the Ctrl-F function, however when the
Macro is unuseable (or going to error out) I would prefer to have the
macro call the Find and Replace Dialog Box. The only hitch is that I
cannot seem to find that dialog box in the list of presets.

Thanks in advance for your help,
John

 

[Dave Peterson]

For the Find Dialog:

Dim WhatToFind As String
WhatToFind = "asdf"
Application.Dialogs(xlDialogFormulaFind).Show arg1:=WhatToFind

For the Replace dialog

Dim WhatToFind As String
Dim ChangeToWhat As String
WhatToFind = "asdf"
ChangeToWhat = "qwer"
Application.Dialogs(xlDialogFormulaReplace).Show _
arg1:=WhatToFind, arg2:=ChangeToWhat