I have a code (below) that I am trying to get to work and I quite obviously am out of my element and don't know what I am doing. What I need the code to do is the following:

E3:AH3, E5:AH6, E8:AH12, E14:21 cycle through û and ü.
E4:AH4, E7:AH7, E13:AH13 cycle through û, ü, and N.

The code below isn't working and was me trying to mess around with the first couple rows. Any assistance would help. I feel like it is something simple but I really don't know what I am doing. 


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("E3:AH6")) Is Nothing Then
       Cancel = True
        On Error GoTo Oops
        Application.EnableEvents = False
        
        If Target.Row < 3 Then
    Select Case Target.Value
        Case Is = "û"
            Target.Font.Name = "Wingdings"
            Target.Font.Size = "16"
            Target.Value = "ü"
        Case Is = "ü"
          Target.Font.Size = "20"
            Target.Value = "û"
    End Select
    
        Else
        If Target.Row = 4 Then
            Select Case Target.Value
                Case vbNullString
                    Target.Font.Name = "Wingdings"
                    Target.Font.Size = "16"
                    Target.Value = "ü"
                Case "ü"
                    Target.Font.Size = "20"
                    Target.Value = "û"
                Case "û"
                    Target.Font.Size = "16"
                    Target.Value = "N"
                Case "N"
                    Target.ClearContents
            End Select
              
        Else
        If Target.Row < 7 And Target.Row > 4 Then
    Select Case Target.Value
        Case Is = "û"
            Target.Font.Name = "Wingdings"
            Target.Font.Size = "16"
            Target.Value = "ü"
        Case Is = "ü"
          Target.Font.Size = "20"
            Target.Value = "û"
    End Select
    End If
Oops:
            Application.EnableEvents = True
    
    End If
    End If
    End If
End Sub