excel - VBA for Excel の実行時エラー 13

Question

以下のスクリプトは、AE49 または Z40 に値があり、それを削除すると、実行時エラー '13' タイプの不一致を引き起こします。理想的には、値が削除された場合、行を「非表示」にする必要があります (これは、Case Else 行で達成しようとしたことです)。

Private Sub Script2(ByVal Target As Range)

    If (Not Intersect(Target, Range("Z40")) Is Nothing) Then

        Select Case Target.Value
            Case "PowerPoint", "Verbal"
                  Range("A41").EntireRow.Hidden = False
            Case Else
                  Range("A41").EntireRow.Hidden = True
        End Select
    End If
End Sub

Private Sub Script3(ByVal Target As Range)

    If (Not Intersect(Target, Range("AE49")) Is Nothing) Then
       Select Case Target.Value
          Case 1
             Range("A50:A52").EntireRow.Hidden = False
             Range("A53:A55").EntireRow.Hidden = True
          Case 2
             Range("A50:A53").EntireRow.Hidden = False
             Range("A54:A55").EntireRow.Hidden = True
          Case 3
             Range("A50:A54").EntireRow.Hidden = False
             Range("A55").EntireRow.Hidden = True
          Case 4
             Range("A50:A55").EntireRow.Hidden = False
          Case Else
             Range("A50:A55").EntireRow.Hidden = True
       End Select
    End If
End Sub