Boa tarde Ricanero
Experimente o código abaixo, reforçando que em "Planilha1" é o identificador da sua Planilha
Sub Salvar()
Dim diretorio, arquivo As String
diretorio = Planilha1.Cells(2, 30).Text
arquivo = Planilha1.Cells(3, 30).Text
ActiveWorkbook.SaveAs Filename:=diretorio + arquivo
End Sub
Postado : 01/10/2022 3:32 pm