Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
If c.Column = 4 And c.Row > 4 Then
Cancel = True
With c.Font: .Name = "wingdings": .Size = 12: .Bold = True: End With
c = IIf(c = "", "ü", "")
End If
End Sub