シートの削除

Worksheetを削除します。
削除の際、確認メッセージが表示されてしまいます。表示メッセージを非表示にして、削除後、表示するようにします。

Sub SheetDel(filename As String, sheetname As String)
	Dim wb As Workbook

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

		Application.DisplayAlerts = False	' メッセージを非表示

		wb.Sheets(sheetname).Delete

		Application.DisplayAlerts = True 	' メッセージを表示
	End If
End Sub