スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、NoUseという名前のシートをシートを警告なしに削除します。
ただし、シートが１枚しか存在しない場合には削除できません。

Sub Sample()

    On Error Resume Next
    With Application
        .DisplayAlerts = False
        Sheets("NoUse").Delete
        .DisplayAlerts = True
    End With

End Sub