(Mini VBA No1)「シート数指定で新規ブックを開く」

※エラー処理は省略しています。使用の場合は御注意下さい。
スクリプトを使用して損害が発生しても、責任は一切負えませんので悪しからず。

Sub test()
    Dim newbk   As Workbook
    Set newbk = createBook(5)
End Sub

Option Explicit

' 新規ブック作成
'
' 概要：
'   指定されたシート数のワークシートのみで構成されたブックを作成する。
'
' INPUT	 : sheetCount    挿入するシート数
' OUTPUT : ---
' RETURN : 作成されたブック
'
' @author   iiyan.net
' @date     2001/10/18
' @version  1.0
Function createBook(ByVal sheetCount As Integer) As Workbook
    Dim defaultSheetCount   As Integer

    With Application
        defaultSheetCount = .SheetsInNewWorkbook
        .SheetsInNewWorkbook = sheetCount

        Set createBook = Workbooks.Add

        .SheetsInNewWorkbook = defaultSheetCount
    End With
End Function