EXCEL VBA シートを削除する

Sub DeleteSheet2()
‘ エラーが発生した場合でも処理を続行
On Error Resume Next

‘ シートの削除時の確認ダイアログを非表示にする
Application.DisplayAlerts = False

‘ Sheet2が存在するか確認し、存在する場合は削除
If Not ThisWorkbook.Sheets(“Sheet2”) Is Nothing Then
ThisWorkbook.Sheets(“Sheet2”).Delete
End If

‘ 確認ダイアログを元に戻す
Application.DisplayAlerts = True

‘ エラー処理の終了
On Error GoTo 0

MsgBox “Sheet2を削除しました。”, vbInformation
End Sub

解説は後日記述します。