How to Fill 56 Colors In First Column of a Sheet using VBA Macro

VBA Macro To Fill 56 Colors In First Column Of A Sheet

'Break The Loop when x=10

Sub AddColor()

Dim X As Integer

For X = 1 To 56

ActiveSheet.Cells(X, 1).Interior.ColorIndex = X

If X = 10 Then Exit For     'Loop Breaks Here

Next X

End Sub

Thanks,Tamatam