Sub insert_sheet()
	Sheets.Add
	'シートを追加します
End Sub