VBA Fehlermeldung durch "Blatt schützen"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ra As Range, Ws As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
For Each Ws In Worksheets
Select Case Ws.Name
Case "Trade", "Promo", "CW"
For Each Ra In Worksheets(Ws.Name).Range("H13:H155")
If Ra.Value > 0 Then
Else
Ra.EntireRow.Hidden = True
End If
Next
End Select
Next
If Me.Saved = False Then Me.Save
Application.DisplayAlerts = True
End Sub