シートの追加

Worksheetを追加する方法です。
追加したWorksheetを次に使用できるように、オブジェクトを変数に設定します。

ここでは、末尾に追加する方法です。
先頭に追加する場合、Sheet2（任意です）の前後に追加する場合は、コメントしてあるので必要に応じて使用してください。

Function SheetAdd(filename As String) As Worksheet
	Dim wb As Workbook
	Dim ws As Worksheet
	Dim idx1 As Integer

	Set ws = Nothing

	If IsFileExists(filename) = True Then		' ファイルの有無を確認
		Set wb = Workbooks.Open(filename)	' ブックを開く

		' ①先頭に追加する場合
		'Set ws = wb.Worksheets.Add(Before:=Worksheets(1))

		' ②Sheet2 の前に追加する場合
		'Set ws = wb.Worksheets.Add(Before:=Worksheets("Sheet2"))

		' ③Sheet2 の後に追加する場合
		'Set ws = wb.Worksheets.Add(After:=Worksheets("Sheet2"))

		' ④末尾に追加する場合
		Set ws = wb.Worksheets.Add(After:=Worksheets(wb.Sheets.Count))

		Set wb = Nothing
	Else
		MsgBox filename & "は存在しません", vbExclamation
	End If

	Set SheetAdd = ws
End Function

参考：Microsoft Learn：Worksheets.Add メソッド (Excel)
https://learn.microsoft.com/ja-jp/office/vba/api/excel.worksheets.add