Range Selection-how will i take the range from the string found "row"?

[Juw]

M finding some string like "DATE" in excel sheet
Cells.Find("d a t e", LookIn:=xlValues)
how will i take the range from the string found "row"
to the end of the row.
plz tell me i wil b very greatful to u

[antoka05]

You can use this code:

Sub Macro1()
   Set f = Cells.Find("d a t e", LookIn:=xlValues)
   If Not f Is Nothing Then
      lastColumnInRow = Cells(f.Row, Columns.Count).End(xlToLeft).Column
      Range(Cells(f.Row, f.Column), Cells(f.Row, lastColumnInRow)).Select
   End If
End Sub

I hope it can help you

Regards,
Antonio