Este fórum está sendo desativado

[AndersonDao]

Boa tarde,

Por favor, qual seria o código para selecionar a planilha ativa e a planilha seguinte (plan1 + plan2)?
Obs. Sem utilizar o nome das planilhas no código

Obrigado,

[alexandrevba]

Boa tarde!!

Eu não sei o que você realmente pretende, mas já tentou?

Código: Selecionar todos

ActiveSheet.Next.Select

Att

[osvaldomp]

Este código seleciona a planilha ativa e mais a primeira planilha à direita dela

Código: Selecionar todos

Sub SelecionaPlanilhasV1()
 Sheets(Array(ActiveSheet.Name, ActiveSheet.Next.Name)).Select
End Sub

Este abaixo seleciona a planilha ativa e mais as duas primeiras à direita dela. Para selecionar mais ou menos planilhas altere o +2

Código: Selecionar todos

Sub SelecionaPlanilhasV2()
 Sheets(Array(ActiveSheet.Name, Sheets(ActiveSheet.Index + 2).Name)).Select
End Sub

[AndersonDao]

Muito Obrigado pessoal.
Muito Obrigado Osvaldo. Resolveu meu problema!