Toggle multiple font colors

sub toggle_color()
dim cell as range
for each cell in selection
  select case cell.font.colorindex
    case 6
      cell.font.colorindex = 3
    case 3
      cell.font.colorindex = 33
    case 33
      cell.font.colorindex = 6
  end select
next cell
end sub

write some data in some cells in range some range change color of tex in some to red some to yellow and some light blue (and some other colors) select the range with data and run the macro firs time then next and again, and ...

Take a look at the file in post#4 of the following thread.
http://www.excelforum.com/excel-prog...-blinking.html

It uses code like the following (written and tested using Excel 2003) to have a cell blink in a sequence of three colors.

Sub SequenceColorInCell()

  Const sSheetName = "Sheet1"
  Const sCELL1 = "G1"

   Dim myRGB_Color As Long
   Dim iRGB_Color1 As Long
   Dim iRGB_Color2 As Long
   Dim iRGB_Color3 As Long

   iRGB_Color1 = RGB(255, 0, 0)
   iRGB_Color2 = RGB(0, 255, 0)
   iRGB_Color3 = RGB(0, 0, 255)
  
    'Get the current color of the status cell
    myRGB_Color = Sheets(sSheetName).Range(sCELL1).Interior.Color
  
    'Sequence to the next color
    Select Case myRGB_Color
  
      Case iRGB_Color1
        Sheets(sSheetName).Range(sCELL1).Interior.Color = iRGB_Color2
      
      Case iRGB_Color2
        Sheets(sSheetName).Range(sCELL1).Interior.Color = iRGB_Color3
      
      Case Else
        Sheets(sSheetName).Range(sCELL1).Interior.Color = iRGB_Color1
      
    End Select
  
  End Sub

Lewis

Glad it helped.
See also Lewis proposition - it uses another property - color, not colorindex wich allows for much reacher palette of colors.
And following forum rules please mark thread as solved.