victorapda,

Boa Tarde!

Quando você salva uma pasta com outro nome, o Excel "entende" que você quer dar um outro nome ao arquivo atual para preservar o arquivo antigo. Assim, ele salva uma cópia com o novo nome dado e deixa o arquivo original intacto. Todavia, ele só mantém na memória o "novo arquivo".

Creio que para resolver esse tipo de problema, você possa colocar no seu código, mas alguma coisa que permita abrir novamente o arquivo original e fechar o novo arquivo salvo, mais ou menos assim:

    ThisWorkbook.Save
           
            ActiveWorkbook.SaveAs Filename:=caminho + "Teste.xlsm"
           
            Workbook.Activate
           

            MsgBox "Venda concluída!", vbInformation, "Sucesso"

            'abre o arquivo original (o que foi salvo com outro nome
             Workbooks.Open ActiveWorkbook.Path & "nome_do_arquivo_original.xlsm"
             'Fecha o novo arquivo salvo
             Workbooks("Teste.xlsm").Close

            Application.DisplayAlerts = True

Eu faria assim:

    With ThisWorkbook
        .SaveCopyAs Filename:=caminho & "Teste.xlsm"
        .Save
    End With
    
    MsgBox "Venda concluída!", vbInformation, "Sucesso"
    Application.DisplayAlerts = True

Pessoal, vocês são demais! Wagner muito obrigado pela explicação e Fernando, valeu demais por ter solucionado! hehe a sua ideia deu direitinho para o que eu queria! Muito obrigado mesmo galera, Planilhando é o melhor e Excel é um monstro da produtividade!

Abraços!