ワークブックを新規作成、名前をつけて保存、閉じる

ワークブックを新規作成するには
Workbooks.Addメソッドを使用します。
今回は変数wbに新規作成したワークブックを入れておきます。

新しく作成したワークブックに名前をつけるには
"名前を付けて保存"をします。
保存をしないで名前を付けることはできません。

"名前を付けて保存"をするにはSaveASメソッドを使用します。
Filename引数にファイルのフルパスを指定します。

下記のマクロでは変数wb_pathに保存先のフォルダを指定、
変数wb_nameに拡張子を含まないファイル名を指定します。

FileFormatプロパティで保存形式を指定します。
下記のマクロではxls形式を表す"xlWorkbookNormal"を指定しています。

Sub macro200316a()
'ワークブックを新規作成して名前を付けて保存、閉じる

    Dim wb As Workbook
    Dim wb_path As String
    Dim wb_name As String
    wb_path = "C:\保存先フォルダ"
    wb_name = "Book1"

    Set wb = Workbooks.Add
    wb.SaveAs Filename:=wb_path & "\" & wb_name, _
        FileFormat:=xlWorkbookNormal
    wb.Close

End Sub

実行結果は
保存先に指定したフォルダに
Book1.xlsが保存されているか確認してください。

xlsx形式で保存したい場合は、
上記のマクロのFileFormat引数のxlWorkbookNormal部分を
xlWorkbookDefaultに変更してください。
同じくxlsm形式で保存したい場合は、
xlOpenXMLWorkbookMacroEnabled に変更してください。

その他の形式については
FileFormat引数の詳細については記載された
次のMicrosoftページを参照してください。
「XlFileFormat 列挙体 (Excel)」