VBA for finding text and returning the row

[OldManDemosthenes]

Hi

I need to use a VBA code which will find a specific string within a worksheet and return what row that string is in.

Here's what I've tried but it does not work

Dim TestRow as Long

TestRow = Worksheets("Sheet1").Range("A1:B200"). _
[INDENT]Application.Find("Test String").Row[/INDENT]

Worksheets("Sheet1").range("C1") = TestRow

Thanks for the input!

 

[VoG]

Try

Dim Found As Range
Set Found = Worksheets("Sheet1").Range("A1:B200").Find(what:="Test String", LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then Worksheets("Sheet1").Range("C1").Value = Found.Row

 

[OldManDemosthenes]

That works! Thanks for the reply VoG