Edson Sua solução funcionou perfeitamente. Muito Obrigado. o código ficou da seguinte forma: Sub Procura_abas() Dim rg As Range Number = 7 Pr...