top of page
![](https://static.wixstatic.com/media/5752ac_338e02b5f37d43118fd67ecc5cf151a5.png/v1/fill/w_332,h_343,al_c,q_85,usm_0.66_1.00_0.01,enc_auto/5752ac_338e02b5f37d43118fd67ecc5cf151a5.png)
Sub ColorRef()
Dim x As Integer
For x = 1 To 56
If x < 29 Then
Cells(x, 1).Interior.ColorIndex = x
Cells(x, 2) = x
Else
Cells(x - 28, 3).Interior.ColorIndex = x
Cells(x - 28, 4) = x
End If
Next x
End Sub
bottom of page
Sub ColorRef()
Dim x As Integer
For x = 1 To 56
If x < 29 Then
Cells(x, 1).Interior.ColorIndex = x
Cells(x, 2) = x
Else
Cells(x - 28, 3).Interior.ColorIndex = x
Cells(x - 28, 4) = x
End If
Next x
End Sub