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

kraljb wrote:
>
> 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
>
> --
> kraljb
> ------------------------------------------------------------------------
> kraljb's Profile: http://www.excelforum.com/member.php...fo&userid=9955
> View this thread: http://www.excelforum.com/showthread...hreadid=500379

--

Dave Peterson