Laufzeitfehler 1004

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Long
Dim arrZeichen
Dim arrFarbe
Dim arrSchriftart
If Not Intersect(Target, Range("V9:V5009")) Is Nothing Then
arrZeichen = Array("", "ü", "û")
arrFarbe = Array(2, 50, 3)
arrSchriftart = Array("Calibri", "Wingdings", "Wingdings")
ElseIf Not Intersect(Target, Range("AQ9:AQ5009")) Is Nothing Then
arrSchriftart = Array("Calibri", "Calibri", "Calibri")
arrZeichen = Array("Ja", "Nein", "")
arrFarbe = Array(10, 3, 33)
Else
Exit Sub
End If
On Error Resume Next
x = WorksheetFunction.Match(Target.Value & "", arrZeichen, 0)
On Error GoTo 0
x = x Mod (UBound(arrZeichen) + 1)
Target.Value = arrZeichen(x)
Target.Font.ColorIndex = arrFarbe(x)
Target.Font.Name = arrSchriftart(x)
Cancel = True
End Sub