Something like:

Dim rngFind As Range
Dim sString As String

sString = "abcd"

Sub Tester()
Set rngFind = Cells.Find(What:=sString, LookAt:=xlPart)
If Not rngFind Is Nothing Then
Cells(500, 3) = rngFind
End If
End Sub

Not sure what you mean by copy a string to a row. If you mean put the
string in every cell in Rows(500)
you could do this with

Rows(500) = rngFind

HTH,
Shockley


"solo_razor" wrote in message
...
hi

I have implemented a find option to search for a particular string, if
found then copy the data what lies under it to a certain row lets say
row 500 and then copy, does anybody know vba code for this.

Regards,



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/