Ola boa noite,
esta macro ta funcionando, mas gostaria de mudar. Ela ler plan1, plan5, plan6 e não os nomes que podem ser renomeado e não serão encontrados pela macro.
Sub Programação()
Dim ws As Excel.Worksheet
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "MODELO", "LISTA DOS NOMES", "ENDEREÇOS" 'nestas planilhas não mexe
Case Else
Atualização ws
End Select
Next ws
End Sub
Sub Atualização(ws As Excel.Worksheet)
ws.Activate
'aqui a execução do comando
End Sub
Obrigado.