I have an excel worksheet that i am trying to code to make it cycle through 3
different colors (yellow, green and red) by double clicking on the cell, all
it does is keep it blank....here is the code that i have in the sheet right
now. As well i would like this to apply to only certain cells, (i dont know
how to define the range, its been a really long time since i worked with this)
HELP!!!


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Interior.ColorIndex = 6
End If
If ActiveCell.Interior.ColorIndex = 6 Then
ActiveCell.Interior.ColorIndex = 4
End If
If ActiveCell.Interior.ColorIndex = 4 Then
ActiveCell.Interior.ColorIndex = 3
End If
If ActiveCell.Interior.ColorIndex = 3 Then
ActiveCell.Interior.ColorIndex = xlNone
End If
End Sub