Ola Edilson,

Estou colocando abaixo uma rotina que voce pode incorporar de acordo com sua necessidade:

Sub SALVAR()

    Dim MeuDir, MeuNome
    MeuDir = TextBox1
    MeuNome = "SUAPLANILHA.xlsm"
    Workbooks("SUAPLANILHA.xlsm").SaveCopyAs Filename:=MeuDir & MeuNome
    MsgBox "Arquivo salvo com sucesso"
    
End Sub

Guima.

Testado e funcionando.

Valeu Obrigado pela Força.

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.