VB Find

[Michael Kintner]

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

 

[Tom]

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

 

[Tom Ogilvy]

see the example code in Excel VBA help on the Find method.

or turn on the macro recorder, then do Edit=>Find