I'm using the following sub
Sub FindRow()
Dim rngFound As Range
Set rngFound = Range("A:A").Cells.Find(What:="test", _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
MatchCase:=False)
If rngFound Is Nothing Then
MsgBox "Sorry ""test"" was not found"
Else
rngFound.EntireRow.Select
End If
End Sub
My problem is that if I excange Test with a1 - wanting to look the value in
cell a1 I always get the first blank a-cell. I have removed the "". What is
wrong?
Lupus
Bookmarks