EXCEL 公式 - 运行时错误 28

Question

我有一个可以工作的 VBA - 但导致运行时错误 28过了一会儿。B3:B11 列有隐藏或者展示来自其中的一个功能 =IF(E3=0,"隐藏","显示") 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 时

我感谢任何帮助 - 我很困惑...谢谢，埃德......