fórmula EXCEL - Runtime Error 28

Question

Eu tenho um VBA que funciona - mas leva a um Erro de tempo de execução 28 depois de um tempo. Colum B3: B11 tem Esconder ou Mostrar de uma função neles = SE (E3 = 0, "Ocultar", "Mostrar") E3: E11 tem um valor em dólar ou 0 em outra planilha. Aqui está o 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

Estou tentando chamar automaticamente hidelines quando qualquer um dos E3: E11 tiver um valor em dólar ou 0

Agradeço qualquer ajuda - estou perplexo ... Obrigado, Ed ...