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