Excel Forum

Code: Select all

Sub Searching()
    Dim c As Range
    Dim msg As String
    msg = ""
    With ActiveSheet.UsedRange
        Set c = .Find(InputBox("Please enter your word that you want to find."), LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                msg = msg & c.Address & vbCrLf
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
            MsgBox msg
        End If
    End With
End Sub