Three Sequence VBA

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

This address the R3 through infinity question as well as clearing the cell out.

Please Login or Register  to view this content.

Thank you the welcome and sorry for the mistake on inserting the code.

Thank you as well for the code correction. I am extremely new to this, so my next question is: I understand how to change the column and color for different columns to have a unique color, but how do I compile them so they all work (with different columns using its own unique color)?