Private Sub FileSaveAs1()
     Dim FileName: FileName = Application.GetSaveAsFilename
     If VarType(FileName) = vbBoolean Then Exit Sub    ' если нажали "Отмена", то FileName = False
     MsgBox FileName    'ActiveWorkbook.SaveAs FileName:=FileName
End Sub

Private Sub FileSaveAs2()
     With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = ActiveWorkbook.Name
        .Title = "Title": .ButtonName = "ButtonName": .InitialView = msoFileDialogViewLargeIcons
        If .Show = 0 Then Exit Sub     ' если нажали "Отмена", то .Show = 0
        On Error Resume Next
        MsgBox .SelectedItems(1)    'ActiveWorkbook.SaveAs FileName:=.SelectedItems(1)
     End With
End Sub
Private Sub FileSaveAs3()
     With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = ActiveWorkbook.Name
        .Title = "Title": .ButtonName = "ButtonName": .InitialView = msoFileDialogViewLargeIcons
        If .Show = 0 Then Exit Sub     ' если нажали "Отмена", то .Show = 0
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs FileName:=.SelectedItems(1)
        Application.DisplayAlerts = True
     End With
End Sub