You can use Application.Dialogs(xlDialogFormulaReplace).Show to show the
dialog box and you can list the arguments afterwards to control the various
fields and other options. In your case, you would want something like
this...

Application.Dialogs(xlDialogFormulaReplace).Show ActiveCell.Value

which will fill the "Find what" field with the contents of the active cell.
You can also specify what to replace it with by specifying a second text
like so...

Application.Dialogs(xlDialogFormulaReplace).Show _
ActiveCell.Value, "Replacement Text"

Note that I deliberately used a line continuation character to force the
text wrap so that your newsreader wouldn't text wrap it at an odd location.

The arguments you can specify (in this order) a find_text, replace_text,
look_at, look_by, active_cell, match_case, match_byte

You can get the proper values to use for all of them (except for the
active_cell argument which I can find no documentation for) by looking up
the Find Method in the VBA help files. Here is a more complete example
showing one of the many possible combination of arguments (note that I
omitted the active_cell argument)

--
Rick (MVP - Excel)


"plh" wrote in message
...
Hi All,
I am looking for a way to program the Find and Replace window. What I want
to do
is set up a hot key to call the window with the contents of the selected
cell in
the "Find What?" space. (Ordinarily I would just record a macro & alter
what I
got but that recording feature does not seem to record anything when the
Find
and Replace sub-window is used.)
Thank You,
-plh


--
Where are we going and why am I in this HAND BASKET??