Utilize a rotina abaixo :

    Sub Salvar_Como()

        Dim stDir As String

        'Digite aqui o Caminho
        stDir = "C:"
        
        'Caminho mais o nome do arquivo
        stDir = stDir & "MeuTeste.xls"
       
        MsgBox "O arquivo será salvo conforme abaixo:" & vbCrLf & stDir, vbInformation, "Alerta"
       
        ThisWorkbook.SaveAs Filename:=stDir & "MeuTeste.xls"

    End Sub

[]s

Obrigado...
mas e caso o nome do arquivo variar, por exemplo, caso for o numero de um pedido?

grato

Para alterar o nome do arquivo, ou você altera direto na rotina :
'Caminho mais o nome do arquivo
stDir = stDir & "MeuTeste.xls"

Ou coloca o nome em uma célula, cria a variavel para o mesmo e troca na rotina, assim toda vez que for salvar é só alterar o nome na celula.

[]s

E como posso fazer isso?

Grato

E como posso fazer isso?

Grato

Via Pesquisa nop Forum, temos o tópico abaixo que é só fazer alguns ajustes :
Nomear nova Pasta com valor da célula.
viewtopic.php?f=10&t=2530&p=11081&hilit=saveas#p11081

É só aproveitar as linhas :
Sub FiltroNewWkB()
fNome As String, sPath As String

'Aqui salva e nomeia o arquivo (sem os dados ainda)
ThisWorkbook.SaveAs Filename:=sPath & fNome

End Sub

[]s

Poderia me mostrar como fica o codigo completo?

Grato

Poderia me mostrar como fica o codigo completo?

Grato

???? O Código completo está no post acima. e comentado ? Não entendi.

[]s

Desculpe, é porque não tinha entendido...vou tentar...grato mais uma vez.