サンプルマクロは、ファイル名を付けて保存の規定パスをChDrive、ChDirステートメント
を使用して、指定したフォルダに変更しています。

そのうえで、GetSaveAsFilenameメソッドを利用して、ユーザーにファイルの保存先を
指定してもらい、保存する処理を行っています。

Sub Sample()

    Const myPath As String = "C:\Winnt\"

    Dim myFileName As String
    Dim myRes As Byte

    Do
        ChDrive myPath
        ChDir myPath

        myFileName = Application.GetSaveAsFilename _
            (ActiveWorkbook.Name, "Excelファイル(*.xls),*.xls")
        If myFileName = "False" Then Exit Sub

        If Dir(myFileName) <> vbNullString And _
            MsgBox("ファイルが存在します。" & vbCr & "上書きしますか？", _
                vbYesNo + vbDefaultButton2 + vbQuestion, "上書き確認") _
                = vbYes Then Exit Do
    Loop

    With Application
        .DisplayAlerts = False
        ActiveWorkbook.SaveAs myFileName
        .DisplayAlerts = True
    End With

End Sub