Gilbertob,

Boa tarde!

Não testei mas... veja se é assim.

Sub ImprimirVarTH()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
    
        If Trim(ws.Name) <> Trim("Empregador") And _
        Trim(ws.Name) <> Trim("Empregados") And _
        Trim(ws.Name) <> Trim("Verbas") And _
        Trim(ws.Name) <> Trim("TRCT") Then
        PlanName = ws.Name
        
            If Val(ws.Range("Z2").Value) > 365 Then
                 ws.Range("A1:AA53,A103:AA158").PrintOut Copies:=1, Collate:=True
            Else
                 ws.Range("A1:AA53,A55:AA102").PrintOut Copies:=1, Collate:=True
            End If
        End If
    
    Next ws
    
    Set ws = Nothing
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "Processamento concluído com sucesso.", , "Pronto!"
End Sub

Obrigado Wagner, funcionou perfeitamente.

O meu conhecimento de vba é muito reduzido. Me limito a pesquisar na internet para tentar achar algo similar ao que preciso e comparando uma solução com outra vou fazendo as adaptações. A título de aprendizado, no código que postei tem alguma coisa que é desnecessária, que pode ser suprimida?

Att.

Gilberto

Gilberto,

Boa tarde!

Bom... seu código está muito bom. Em programação, se pararmos para analisar detalhadamente, sempre há uma maneira de fazer diferente. Todavia, necessariamente, não significa melhoria de ganho de performance. O que quero dizer é que várias formas de fazer a mesma coisa. A priori, não vislumbro problema de performance no seu código.

Obrigado Wag

Um grande abraço,

Gilberto