Mover uma planilha para uma nova posição - VBA

[vagnersouza1976]

Pessoal,

 

Bom dia !!!

 

Preciso de um código VBA para mover uma planilha para uma nova posição, conforme descrito abaixo ou detalhado no arquivo (link) ...

 

-------------------------------------------------------------------------------------

 

Mover a planilha Tabela da 2º posição para a 3º posição.

 

Resumindo:

 

Sequencia atual das planilhas:

 

Dados/Tabela/Resultado/Relatório (esta na 2º posição)

 

Sequencia esperada das planilhas:

 

Dados/Resultado/Tabela/Relatório (deverá ficar na 3º posição)

 

----------------------------------------------------------------------------------------

 

Link: https://www.sendspace.com/file/nuxr3t

 

Grato.

[Patropi]

Bom dia Vagner

 

Experimente o código:

​Sub MoverPlanilha()    Sheets("Tabela").Move After:=Sheets(3)End Sub

ou para mover a planilha Ativa para 3 posição

Sub MoverAtiva()    ActiveSheet.Move After:=Sheets(3)End Sub

[]s

[vagnersouza1976]

Perfeito !!!

 

Muito obrigado.