Change cell coulor with a single click

[Legacy 237453]

Hi

Can somebody tell me how i can change the coulor of a cell when somebody clicks the cell using VBA?
I need the cells to turn green.

If you need more info please let me know.

Many Thanks
Craig!

 

[Legacy 237453]

Ok Kreszch68's code works great.... the only thing is you have to navigate away from that cell... then go back and double click it to get it to change coulor... Ideally if possible

The first coulor change would be a double click to get green
Then another single click to get to orange
then another single click to get to red
then another single click back to white......
Then on a loop lol

I cant thank you guys enough, if its not possible or im asking to much then its no worries you have helped enough
Thanks
Craig

 

[VoG]

Try this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const vGreen As Variant = 43
Const vOrange As Variant = 44
Const vRed As Variant = 3
Cancel = True
Select Case Target.Interior.ColorIndex
    Case xlColorIndexNone
        Target.Interior.ColorIndex = vGreen
    Case vGreen
        Target.Interior.ColorIndex = vOrange
    Case vOrange
        Target.Interior.ColorIndex = vRed
    Case vRed
        Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub

 

[Legacy 237453]

Guys! What a hero! Thanks alot
Works perfectley