VB Find

  • Thread starter Thread starter Michael Kintner
  • Start date Start date
M

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
 
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
 
see the example code in Excel VBA help on the Find method.

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