【VBA】シートの削除方法まとめ【強制的に削除する、条件を指定する】

参考元：【VBA】シートの削除方法まとめ【強制的に削除する、条件を指定する】
https://daitaideit.com/vba-sheet-delete/

Sub TEST2()
  
  Application.DisplayAlerts = False 'メッセージを非表示
  ActiveSheet.Delete 'シートを削除
  Application.DisplayAlerts = True 'メッセージを表示
  
End Sub

条件に一致するシートを削除

シートの存在を確認してシートを削除
Sub TEST5()
  
  Dim A
  For Each A In Sheets
    'シートが存在する場合
    If A.Name = "Sheet2" Then
      Application.DisplayAlerts = False
      A.Delete 'シートを削除
      Application.DisplayAlerts = True
    End If
  Next
    
End Sub

部分一致したシートを削除

Sub TEST6()
  
  Dim A
  For Each A In Sheets
    'シート名に「2」を含む場合
    If InStr(A.Name, "2") > 0 Then
      Application.DisplayAlerts = False
      A.Delete 'シートを削除
      Application.DisplayAlerts = True
    End If
  Next
  
End Sub