Introduction to Writing Excel Macros (VBA)

checker = 0
For Each thing In Selection checker = 1 - checker thing.Value = checker
Next
End Sub

This is the code I made for a checkerboard, in the speadsheet, it looks like 1's and 0's. I need away to incorporate Red (colorindex 3) instead of the number 1. And replace Black (colorindex 1) instead of the number 0. I want to make a red and black checkerboard on the spreadsheet. How can I replace the number code with the color code formula?

Try this

Sub checkers()
boardsize = 13
For i = 1 To boardsize
For j = 1 To boardsize
If (i + j) Mod 2 = 0 Then
Cells(i, j).Interior.ColorIndex = 3
Else
Cells(i, j).Interior.ColorIndex = 1
End If
Next
Next
End Sub

how can I change 1's and 0's to Red and Black in the macro module?
This is the code I made for looping a checkerboard design,
checker = 0
For Each thing In Selection checker = 1 - checker thing.Value = checker
Next
End Sub

how can i convert numbers into colors from the module sheet?

One way to get color in a cell is: With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 End With

This is yellow.

That didn't format well. It should be more like this

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 65535

End With