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

Sub Sample()

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

End Sub