Do you mean ?
find([a200],etc

--
Don Guillett
SalesAid Software
Granite Shoals, TX

"bobby" wrote in message
...
That did not work. I am trying to have it paste into the
Find and replace dialogue box.
-----Original Message-----
Try something like this.

Private Sub CommandButton1_Click()

Range("A200").Select
ActiveSheet.Paste
TextBox1 = Range("A200")

End Sub


"Bobby" wrote in message
...
I am trying to write a macro that will paste whatever is
on the clipboard into the Find box. I am having a hard
time. please help with the line of code.
Thanks.


.