Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    If Target.Count <= 15 Then
        If Not Application.Intersect(Target, Range("D620")) Is Nothing Then
            For Each rng In Selection
                With rng
                    If .Value = "" Then
                        .Value = "√"
                    Else
                        .Value = ""
                    End If
                End With
            Next
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    If Target.Count <= 15 Then
        If Not Application.Intersect(Target, Range("D620")) Is Nothing Then
            For Each rng In Selection
                With rng
                    If .Value = "" Then
                        .Value = "√"
                    Else
                        .Value = ""
                    End If
                End With
            Next
        End If
    End If
End Sub