Criar nova planilha com abas atuais - MAcro

[Eloize Teixeira]

Sheets(Array("Investigação", "Investigation Matrix")).Select    Sheets("Investigation Matrix").Activate    ActiveSheet.Buttons.Add(342.75, 1668.75, 459.75, 73.5).Select    ActiveSheet.Buttons.Add(331.5, 1585.5, 460.5, 73.5).Select    ActiveSheet.Buttons.Add(331.5, 1585.5, 460.5, 73.5).Select    Sheets(Array("Investigação", "Investigation Matrix")).Copy    ChDir "C:\TEMP"    ActiveWorkbook.SaveAs Filename:="C:\TEMP\Pasta1.xlsm", FileFormat:= _        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Boa noite pessoal, 

 

Esou tentando fazer uma macro que copia duas abas da minha planilha e cria uma nova planilha com elas, para depois envia-las ao e-mail especifico, porém estou com problemas já na parte da aba, onde da erro na linha citada acima em azul. Alguem poderia me ajudar?

 

Att

[Wendell Menezes]

Sub Macro1()Workbooks.AddThisWorkbook.Sheets("Plan1").Copy Before:=ActiveWorkbook.Sheets(1)ThisWorkbook.Sheets("Plan2").Copy Before:=ActiveWorkbook.Sheets(1)End Sub

Troque "Plan1" e "Plan2" pelo nome das abas que quer colar no arquivo Excel em branco.