VBA Excel - ユーザーがGetSaveAsFilenameのポップアップボックスをキャンセルしたときにサブを終了する

Question

ボタンに割り当てるコードを書きました。ボタンが押されると、新しいワークブックが作成され、新しいファイルを保存する場所がユーザーに尋ねられます。

ユーザーがキャンセルをクリックすると、新しいブックを閉じてサブを終了することを確認します。

私は以下のように記述しましたが、より良いコードを書く方法はわかりません。私はifが改善できることを知っています。あなたが好きな細かい作業

Option Explicit 

Sub Create_a_new_workbook_and_save_it() 

Dim xlPath As String 

Workbooks.Add 

Application.DisplayAlerts = False 

xlPath = Application.GetSaveAsFilename(Title:="Select where you want to save your file") & "xlsm" 

If xlPath = "Falsexlsm" Then 
    ActiveWorkbook.Close 
    Exit Sub 
End If 

ActiveWorkbook.SaveAs _ 
    Filename:=xlPath, FileFormat:=52 

Application.DisplayAlerts = True 

End Sub 

Answer 1

上記のコード....