Qual o problema pq olhando seus codigos aparentemente esta tudo correto.

Boa noite alanisfcsm,

Pelo que entendi você quer manter algumas planilhas ocultas, mas se você manter as planilhas ocultas a macro não vai pegar as planilhas não visíveis.

Para contornar isso você pode colocar no começo dos código um comando para elas ficarem visíveis e no fim um para ocultar. Por exemplo:

    'Torna visivel
    Sheets("SET").Visible = xlSheetVisible
    
'------Seu código-------

    'Oculta
    Sheets("SET").Visible = xlSheetHidden

Bom dia.

Obrigado pela atenção de todos.

É possível incluir mais de uma planilha na mesma linha de código?
Ex. "SET", "P01", "P02"...

 Sheets("SET").Visible = xlSheetVisible

Experimente:

 Dim Plans As Worksheet
    
    'Torna todas as planillhas visiveis
    For Each Plans In Worksheets
            Plans.Visible = xlSheetVisible
    Next Plans
    
    '----Seu código---
    
    
    'Oculta as planilhas com exceção da chamada A
    For Each Plans In Worksheets

        If UCase(Plans.Name) <> UCase("A") Then
            Plans.Visible = xlSheetHidden
        End If

    Next Plans

Novamente agradeço, muito obrigado!