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