Marie,

This fills in cells with the colorindex of -4142....


Sub NumberCells2()
Dim myC As Range
For Each myC In Selection
If (Not myC.MergeCells) And _
(myC.Interior.ColorIndex = -4142) And _
(myC.Value < "a") Then
myC.Value = Application.Max(myC.Offset(-1, 0).EntireRow, _
Cells(myC.Row, 1).Resize(1, myC.Column - 1)) + 1
End If
Next myC
End Sub


--
HTH,
Bernie
MS Excel MVP


"Marie" wrote in message
...
I think the code fails if the color value is negative, i.e. -4142, because of
syntax. How can I properly enter this value?