Sub findnumber2()
With Range("Tabela1").ListObject
FindS = .Parent.Range("A2").Value
Set Rng = .ListColumns(1).DataBodyRange.find(What:=FindS, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, searchformat:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Não Encontrado"
End If
End With
End Sub