Excel VBA - Making a chess board - vba

Question

I am trying to make a 10*10 chess board in excel starting from whichever cell I am on, using black and white color. Have tried the following code but need further help. Can some one please help me to run it with required changes.
Sub COLOR()
Dim I As Long
Dim J As Long
For I = 1 To 10
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.PatternTintAndShade = 0
For J = 1 To 10
ActiveCell.Offset(1, 0).Range("A1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
Next J
Next I
End Sub

Answer 1

I can never remember which corner has the dark colour and which has the light colour on a chess board but, if the following code does it back to front, just change If (I + J) Mod 2 = 0 Then to If (I + J) Mod 2 <> 0 Then:
Sub COLOR()
Dim origin As Range
Set origin = ActiveCell
Dim I As Long
Dim J As Long
For I = 0 To 9
For J = 0 To 9
With origin.Offset(I, J).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
If (I + J) Mod 2 = 0 Then
.ThemeColor = xlThemeColorLight1
Else
.ThemeColor = xlThemeColorDark1
End If
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next J
Next I
End Sub