[Resolvido]Salvar cópia de uma planilha em outra pasta

Boa noite a todos!

Já busquei no fórum, mas não encontrei uma solução que atendesse à minha necessidade de forma simples.

Preciso fazer via vba:

Copiar uma planilha
Origem: D:\PLANILHA_TABLET\PlanilhaTablet.xlsx
Destino: D:\ANEXOS

Desde já obrigado a todos!

Encontrei esse código do JPaulo aqui no fórum, está funcionando blza. Só que percebi agora que vou precisar alterar o nome do arquivo na pasta destino. Agradeço se alguém puder me ajudar.

Código:

             Dim fso
              Dim file As String, sfol As String, dfol As String
              Dim ARQUIVO_ORIGEM As String, PastaOrigem As String, PastaDestino As String
              
              ARQUIVO_ORIGEM = "PlanilhaTablet.xlsx"
              PastaOrigem = "D:\PLANILHA_TABLET\"
              PastaDestino = "D:\ANEXOS\"
              file = ARQUIVO_ORIGEM  ' nome do ficheiro
              sfol = PastaOrigem   ' caminho inicial
              dfol = PastaDestino   ' caminho destino
              Set fso = CreateObject("Scripting.FileSystemObject")
              If Not fso.FileExists(sfol & file) Then
              MsgBox sfol & file & " não existe!", vbExclamation, "Erro"
              ElseIf Not fso.FileExists(dfol & file) Then
              fso.CopyFile (sfol & file), dfol, True
              Else
              MsgBox dfol & file & " existente!", vbExclamation, "Sucesso"
              End If


Problema resolvido, encontrei esse código na internet e deu certo.

Código:

Sub Renomear_Arquivo()
        
Dim nAntigo As String
Dim nNovo As String
Dim varNovoNome As String
            
    'Novo Nome
    varNovoNome = "Planilha_" & Me.LOCAL & "_" & Format(Me.DATA_OPER, "DD.mm.yyyy") & "_Equipe_" & Me.EQUIPE & ".xlsx"
    
    'Nome Antigo do Arquivo a renomear
    nAntigo = "D:\ANEXOS\PlanilhaTablet.xlsx"
    
    'Novo Nome atraves da variavel varNovoNome
    'Se o nemo estiver digitado SEM a extensão ".xls" use esta linha
    'nNovo = "C:\Meus documentos\" & varNovoNome & ".xls"
    
    'Novo Nome atraves da variavel varNovoNome
    'Se o nome estiver digitado COM a extensão ".xls" use esta linha
    nNovo = "D:\ANEXOS\" & varNovoNome

    Name nAntigo As nNovo
            
End Sub

Dando o tópico por encerrado.