VBA Excelファイルの作成と保存

下記仕様のVBAを作成する
 
該当ファイルが存在する場合はそのファイルを開いて保存
該当ファイルが無い場合はファイルを作成して保存
 
 

Sub Main()

    //変数宣言
    Dim currentPath As String
    Dim fileName As String
    Dim fileFullPath As String

    //このマクロファイルのディレクトリ
    currentPath = ThisWorkbook.Path

    //ファイル名
    fileName = "sample1.xlsx"

     //ファイルのフルパス
    fileFullPath = currentPath & "\" & fileName

    //ファイルが存在するかを確認する
    If Dir(fileFullPath) <> "" Then
         //該当ファイルが存在する場合は該当ファイルを開く
        Workbooks.Open fileFullPath
        ActiveWorkbook.Save
    Else
        //該当ファイルが存在しない場合はExcelファイル作成
        Workbooks.Add
        //名前を付けて保存
        ActiveWorkbook.SaveAs fileName:=fileName

    End If

    //ファイルを閉じる
    Workbooks(fileName).Close

End Sub