Too many different cell formats

[Jack-P-Winner]

How can I fix this MAcro when giving me this error

With rC.Offset(-1)
.Value = rC + 1
If .Value = 10 Then .Value = 1
.BorderAround (xlContinuous)
If Application.IsEven(.Value) Then
.Interior.Color = RGB(216, 216, 216)
.Font.Color = RGB(0, 156, 80)
.HorizontalAlignment = xlRight
Else

 

[Jack-P-Winner]

HMMM, I closed it and re opened and the error went away I love excel lol

 

[Hui]

What version of Excel are you using ?
There are limits before Excel 2007

 

[Jack-P-Winner]

2010