Private Sub Workbook_Open()
Sheets(1).Activate
On Error Resume Next
With ActiveSheet
For i = 3 To 250
.Cells(i, 1).Interior.ColorIndex = i
.OLEObjects("CommandButton" & i - 2).Object.BackColor = .Cells(i - 1, 1).Interior.Color
If i > 9 Then Exit For
Next
End With
End Sub