Sub Copiar_Planilhas ()

Dim ABA1 AS STRING, ABA2 AS STRING,  Excluir As String

ABA1 = Plan1.Nome

ABA2 = Plan2.Nome

Excluir = thisworkbook.Path & “\” & “Copia.xls”

On Error Resume Next

Kill Excluir

Set Arquivo = Application.Workbooks.Add

ThisWorkbook.Sheets(Array(ABA1, ABA2)). Copy Before:=Arquivo.Sheets(1)
ARQUIVO.SHEETS(1).NAME = "NOME1"
ARQUIVO.SHEETS(2).NAME = "NOME2"
Arquivo.SaveAs TisWorkbook.Path & “\” & “Copia” & “.xls”


Arquivo.Close

MsgBox “Cópia criada com sucesso”

End Sub

https://youtu.be/n4CinybnQ8Q

https://youtu.be/YB2JLRO1l6A

https://youtu.be/yzbj8vFseqY

Sub RENOMEARABAS()

Dim I As Long


For I = 1 To ThisWorkbook.Sheets.Count

If Sheets(I).Name <> "1 MÊS" Then
If Sheets(I).Name <> "2 MÊS" Then

Sheets(I).Name = "TESTE " & I - 2

End If
End If

Next I


End Sub

Anderson, bom dia! 

Você é fera, muito obrigada pois era exatamente o que eu precisava.

😀 😀 😀