VBA - alguem poderia me ajudar, preciso encontrar o n 102, porem quando não acha dar erro, preciso sair da macro quando não encontrar o n 102

[levi]

Sub vamp_()
Dim Procura As Range
Application.ScreenUpdating = False

Dim linha As Double
Dim x, ucel

Sheets("Migo").Select
    
ucel = Sheets("Migo").Cells(100000, 1).End(xlUp).Row
For x = 2 To ucel

Range("a1:f1").Select
Rows(1).AutoFilter

'========================================= Busca 102
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select

Set Procura = Selection.Find(What:="102", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
            
If Procura Is Nothing Then
    Exit Sub
End If

 

 

Agradeço ajudar. Obrigado