Sheets(Array("jan", "dez")).Select
Range("B4:H35").Select
Selection.ClearContents
Range("J4:M35").Select
Selection.ClearContents
Sheets("Dados").Activate

Obrigado pela dica.
Posso perguntar como ficaria se as abas tivessem nomes diversos? E qual a funçaõ da ultima linha?
grato

Em meu teste só apagou jan e dez, outros meses não.
Grato

Boa tarde!!

Porque não foi posto as outras guais!!!

Sheets(Array("jan", "dez")).Select

Att

Estou com todas as guias, jan ,fev ,......dez.
Também tentei colocando "." após meses (jan.)nas abas e no código, e tbém não foi.
Funcionou digitando todos os meses no código, será isto?
grato

Verifique antes se os nomes das abas correspondem aos nomes colocados no Array, se os nomes estão todos da forma que colocou acima, a linha deverá ser assim:
Sheets(Array("Jan", "Fev", "Mar", "Abr", "Mai", "Jun", "Jul", "Ago", "Set", "Out", "Nov", "Dez")).Select

[]s

É isso mesmo Mauro, só desta forma funcionou.
grato