Поле для шашек VBA

[dukesoteg]

Привет, я тут написал код для заполнения квадрата числами

SUB square() 
num = 1 
FOR gor = 1 TO 8 
FOR ver = 1 TO 8 
Cells(gor, ver) = num 
Cells(gor, ver) = num 
num = num + 1 
NEXT ver 
NEXT gor 
END SUB

получилось как на изображении, но мне надо чтобы числа по возрастанию 1,2,3,4,5 были только в черных клетках

P.S Excel 2010

[EducatedFool]

Sub square()
    For gor = 1 To 8
        For ver = 1 To 8
            If (gor + ver) Mod 2 = 1 Then
                num = num + 1
                Cells(gor, ver) = num
                Cells(gor, ver).Interior.Color = vbBlack
                Cells(gor, ver).Font.Color = vbWhite
            End If
        Next ver
    Next gor
End Sub

[kuklp]

Вариант:

Sub www()
    Set r = [A1:H8]: n = 1: f = 1
    r.Font.Color = vbWhite
    For i = 1 To 64 Step 2
        r(i) = n: r(i).Interior.Color = vbBlack
        If n Mod 4 = 0 Then i = i + f: f = -f
        n = n + 1
    Next
End Sub

[dukesoteg]

о.о спасибо!

[IgorGO]

и на формулах вариант