Rodar macro na pasta de trabalho com exceção

Question

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.

Answer 1

Boa noite Josué.

Se você quer usar o nome interno basta trocar "Name" por "CodeName":

Select Case ws.CodeName
      Case "Plan1", "Plan5" 'nestas planilhas não mexe
      '...
      Case Else
      '...

Abraço.

---

Filipe Magno

Answer 2

Obrigado Felipe Magno. Resolvido.