Cell highlight colour

**Xx7** · 02-11-2011, 01:22 AM

I would like to create a macro that will fill cells with 3 different colours:

If a cell has no colour, then it will fill it orange... Then, if ran again on the same cell, it will identify that it is orange and fill it in blue.... Then, if ran again on the same cell, it will identify that it is blue and fill it red. Then, if ran again on the same cell, it will identify that it is red and fill it orange (back where it started). any help appreciated!! thx

**NickyC** · 02-11-2011, 02:01 AM

Hi
try

Sub colorchange()
If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Interior.ColorIndex = 44
ElseIf ActiveCell.Interior.ColorIndex = 44 Then ActiveCell.Interior.ColorIndex = 33
ElseIf ActiveCell.Interior.ColorIndex = 33 Then ActiveCell.Interior.ColorIndex = 3
ElseIf ActiveCell.Interior.ColorIndex = 3 Then ActiveCell.Interior.ColorIndex = xlNone
End If
End Sub

**Xx7** · 02-11-2011, 02:47 AM

Impressive... thanks!

**pike** · 02-11-2011, 03:21 AM

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save