Find text VBA help

[markstro]

the following VBA allows me to type in cell A6 what I want to find in the sheet. right now it searches the whole sheet, how can I narrow the search to a range and match exactly what is in A6. I have tried editing line 2 with a range and line 4 in a couple ways and can't get it.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
If Target.Address = "$A$6" Then
Set MyRange = Cells.Find(what:=Target.Value, After:=Target)
If Not MyRange Is Nothing Then MyRange.Select
End If
End Sub

 

[VoG]

Try like this

Set MyRange = Range("A7:D11").Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)

 

[markstro]

I have tried a couple variations, Just the cell range with the the exact match and without the exact match, no joy.
I reverted to the original code and it won't work now either.

It is saved in a macro enabled worksheet, how can I send an attachment to you?

 

[VoG]

That code works for me. Try restarting Excel and try again.