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