Paste in Find and Replace Dialogue
 

Sub Tester4()
Worksheets("Sheet2").Select
Cells.Select
Application.SendKeys Worksheets("Sheet1").Range("A1").Value

'Application.Dialogs(xlDialogFormulaFind).Show
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub


Regards,
Tom Ogilvy



"bobby" wrote in message
...
Sorry for the second post, but i think i need to explain
myself better. What i am trying to do is to have a macro
go to another sheet and find the value that was copied
into the clipboard.
for examp: if cell a1 is 200, I want the macro to copy
the cell and open up a find and replace dialogue box and
copy the contents of the clipboard into the find spot.
hope that makes sense,
thanx