Formula Help Needed

[ironsides]

Sub ColourNameChanges()
Dim c As Range
Dim sLast As String

'clear current formats
Range(Range("A3"), Range("G65536").End(xlUp).Offset(0, 43)).Interior.ColorIndex = xlNone
'highlight changes
For Each c In Range("G:G").SpecialCells(xlCellTypeConstants, xlTextValues)
If c.Row <= 3 Then 'in case there is a value before row 3...
sLast = c.Value
Else
If c.Value = sLast Then
'do nothing
Else
Cells(c.Row - 1, 1).Resize(1, 90).Interior.ColorIndex = 6 'yellow
sLast = c.Value
End If
End If
Next c
End Sub

I'm using this formula successfully. I want to change the color

Is the 6 'yellow specification that needs to be changed?
If not what is?

What are the specifications for

Medium Blue
Gray
Brown or any others?

 

[Datsmart]

Turn on Macro Recorder and change a cell to the color in question.
Stop the recorder and view the resultant code. You will see the color number there.

 

[ironsides]

Thanks John

 

[Datsmart]

If you run this macro on a blank sheet, you'll get a list of numbers in column A and the adjacent cells in Column B showing the corresponding color index...

Sub CreateColorIndexList()
****Dim i As Integer
****For i = 1 To 56
********Cells(i, 1).Value = i
********Cells(i, 2).Interior.ColorIndex = i
****Next i
End Sub