Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target, Me.Range("C:C")) Is Nothing Then
If Target.Value = "a" Then
Target.ClearContents
Else
Target.Value = "a"
End If
Cancel = True
End If
End Sub