VBA find using variable refence entered in workseet

[IanPM]

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Column A
[/TD]
[TD]Column B
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]John
[/TD]
[TD]John
[/TD]
[TD]Search value entered to be used in VBA
[/TD]
[/TR]
[TR]
[TD]Mary
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Mat
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Johnny
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]MaryS
[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
I want VBA to find information in the worksheet, where the VBA find function uses the supplied search base from the excel sheet.eg above. The VBA code must find John & not Johnny & select John; if changed to Mary the code must find Mary & not MaryS.
Can someone help with the VBA code for this?

 

[Fluff]

How about

Sub IanPM()
   Dim Fnd As Range
   Set Fnd = Range("A:A").Find(Range("B2").Value, , , xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then Fnd.Activate
End Sub

 

[IanPM]

Seems to work beautifully. Thank you

 

[Fluff]

You're welcome & thanks for the feedback