Excel Salvar duas guias de uma pasta de trabalho em uma nova pasta com macros

[Sergio Marchiori]

Olá pessoal!

 

Tenho uma Pasta de Trabalho com várias planilhas. Gostaria de salvar duas dessa planilhas em uma nova pasta de trabalho com um nome que contenha a data de "hoje". O problema é que essas planilhas contém macros e que eu gostaria que fossem salvas também.

 

Obrigado e aguardo uma ajuda.

[Visitante]

Olá, Sérgio.

Experimente o código abaixo.

Sub NovaPastaDeTrabalho()
 ThisWorkbook.Sheets(Array("Plan1", "Plan2")).Copy
 ActiveWorkbook.SaveAs Filename:="C:\SuaPasta\Salvo " & Format(Date, "dd_mm_yy") & ".xlsm", FileFormat:=52
End Sub