Macro para percorer Planilhas

imagesCALDZY45Segue um exemplo de macros para percorrer diversas abas de um mesmo arquivo.

Sub percorre_abas()

cont = 1
‘ Sheets.Count volta o numero de abas

Do Until cont > Sheets.Count
   
    Sheets(cont).Select
    Range(“A1”) = “Planilha ” & cont

cont = cont + 1
Loop

End Sub