The following code was inserted on Sheet 1....Supposed to add a check mark in any empty cell in Col 5 or clear the cell if a check mark is already there when that cell is clicked.
It worked for a couple of months but no longer is working. Nothing has changed in the workbook that I can see...need some help here....
TIA Don

Private Sub WORKSHEET_BEFOREDOUBLECLICK(ByVal TARGET As Range, CANCEL As Boolean)

    Dim rge As Long 
    
    rge = ActiveCell.Row
    
'    MsgBox rge
    
    If Selection.Column = 5 Then
    
        If Selection = "" Then
    
        Selection.Font.Name = "Wingdings"
    
        Selection.Value = "ü"
    
        Else: Selection.ClearContents
    
        End If
     
    Else: End If
    
    Cells(rge + 1, 5).Select
    
End Sub