Visual Basic - BUSCAR DATOS EXACTO EN EXCEL DESDE VISUAL BASIC

Private Sub cmdSearch_Click()

txtSearch = Text1.Text

Set xlApp = New Excel.Application

Set wb = xlApp.Workbooks.Open("c:\Book1.xls")

Set ws = wb.Worksheets("Sheet1")

With ws.UsedRange.Cells

    Set c = .Find(txtSearch, lookin:=xlValues)

    If Not c Is Nothing Then

        firstAddress = c.Address

        Do

            If (c.Value = txtSearch) Then

                Debug.Print "Value Found at: " & c.Address

            End If

            Set c = .FindNext(c)

        Loop While Not c Is Nothing And c.Address <> firstAddress

    End If

End With

MsgBox ("Done!")

End Sub