Este fórum está sendo desativado

[MRS1977]

Boa dia!

O código VBA abaixo executa a macro em toda pasta de trabalho, pasta esta contendo 20 planilhas. Minha dúvida é a seguinte: Tem como adicionar uma condição para que essa macro não execute em 3 planilhas específicas e também não executasse planilhas que estão ocultas nessa mesma pasta de trabalho?

Sub MacroExecutaTodaPastadeTrabalho()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For Each xSh In Worksheets
xSh.Select
Call ClassficarDatas
Next
Application.ScreenUpdating = True
End Sub

Sub ClassificarDatas()
Application.ScreenUpdating = False
Range("B3:E30").Select
Selection.Sort Key1:=[B3], Order1:=xlAscending
Range("B3").Select
End Sub

[osvaldomp]

Acrescente as linhas em vermelho conforme abaixo.

For Each xSh In Worksheets
If xSh.Name <> "PlanA" And xSh.Name <> "PlanB" And xSh.Name <> "PlanC" And xSh.Visible = True Then
xSh.Select
Call ClassficarDatas
End If
Next

[MRS1977]

osvaldomp,
desculpe-me pela demora em responder, pois estive ausente por esses dias.
Muito obrigado pela ajuda, e fique com Deus!