I would like to use a three sequence VBA double click where the first double click colors the cell, the second double click adds a check mark, and the third double click clears the process (blank cell with no check.) Attached is what I have right now. It goes through the first two steps, but does not clear on the third double click (remains colored with a check mark). Also, is there code for starting at R3 and going to infinity?

Thanks.



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Me.Range("R3:R100000")) Is Nothing Then
Cancel = True
Application.EnableEvents = False
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.ColorIndex = 44
ElseIf Target.Interior.ColorIndex = 44 Then
Target.Font.Name = "Wingdings"
Target.Value = "ü"
ElseIf Target.Value = "ü" Then
Target.Interior.ColorIndex = 3
Target.Value = ""
End If
End If
FallThrough:
Application.EnableEvents = True
End Sub