Формула EXCEL - Ошибка выполнения 28

Question

У меня есть VBA, который работает - но приводит к ошибке времени выполнения 28 через некоторое время. В столбце B3:B11 есть функция Hide или Show из функции = IF(E3 = 0, "Hide", "Show"). E3:E11 имеет сумму в долларах или 0 с другого листа. Вот это VBA

Sub hidelines()
If Range("B3").Value = "Hide" Then
    Rows("3:3").EntireRow.Hidden = True
ElseIf Range("B3").Value = "Show" Then
    Rows("3:3").EntireRow.Hidden = False
    End If
If Range("B4").Value = "Hide" Then
    Rows("4:4").EntireRow.Hidden = True
ElseIf Range("B4").Value = "Show" Then
    Rows("4:4").EntireRow.Hidden = False
    End If
If Range("B5").Value = "Hide" Then
    Rows("5:5").EntireRow.Hidden = True
ElseIf Range("B5").Value = "Show" Then
    Rows("5:5").EntireRow.Hidden = False
    End If
If Range("B6").Value = "Hide" Then
    Rows("6:6").EntireRow.Hidden = True
ElseIf Range("B6").Value = "Show" Then
    Rows("6:6").EntireRow.Hidden = False
    End If
If Range("B7").Value = "Hide" Then
    Rows("7:7").EntireRow.Hidden = True
ElseIf Range("B7").Value = "Show" Then
    Rows("7:7").EntireRow.Hidden = False
    End If
If Range("B8").Value = "Hide" Then
    Rows("8:8").EntireRow.Hidden = True
ElseIf Range("B8").Value = "Show" Then
    Rows("8:8").EntireRow.Hidden = False
    End If
If Range("B9").Value = "Hide" Then
    Rows("9:9").EntireRow.Hidden = True
ElseIf Range("B9").Value = "Show" Then
    Rows("9:9").EntireRow.Hidden = False
    End If
If Range("B10").Value = "Hide" Then
    Rows("10:10").EntireRow.Hidden = True
ElseIf Range("B10").Value = "Show" Then
    Rows("10:10").EntireRow.Hidden = False
    End If
If Range("B11").Value = "Hide" Then
    Rows("11:11").EntireRow.Hidden = True
ElseIf Range("B11").Value = "Show" Then
    Rows("11:11").EntireRow.Hidden = False
    End If
End Sub

Я пытаюсь автоматически вызывать линии скрытия, когда любой из E3:E11 имеет сумму в долларах или 0

Я ценю любую помощь - я в тупике ... Спасибо, Эд ...