the following example returns all cells with the required value.

Tom


Sub Find()
Dim r As Range
Dim strFind As String
Dim strAddress As String

strFind = "Hello"

With ActiveSheet

Set r = .Cells.Find(strFind)
If Not r Is Nothing Then
strAddress = r.Address
Do
MsgBox r.Address
Set r = Cells.FindNext(r)
Loop While Not r Is Nothing And r.Address < strAddress
Else
MsgBox "Not found"
End If
End With
End Sub



"Michael Kintner" schrieb im Newsbeitrag
...
How can I do a find within a range in VB and return the cell location of
that find?

Thanks in advance for your help?

Mike