Please help! vba chessboard

[Ort1z98]

Help me with this please its a homework

Sub MM1()
For c = 1 To 8
For r = 1 To 8
Cells(1, 1).Offset(r - 1, c - 1).Interior.ColorIndex = (r + c) Mod 2 + 1
Next r
Next c
End Sub

The answer is ok but i haven´t seen mod in my class yet. I have to use for to and it seems that the answer includes IF. Can you please help me with this, its a homework that i need to do for today

Thanks

 

[mwrohr]

I don't understand your question - are you trying to get help with the macro or understand what Mod is?

 

[Ort1z98]

I don't understand your question - are you trying to get help with the macro or understand what Mod is?

I am trying to get help with the macro
(r + c) Mod 2 + 1 I can´t use this because my teacher wont let me. He told me I can create the chessboard using for to and if. Please help me with this

 

[mwrohr]

Look, I'm not going to do your homework for you - so what do you have so far for your own code?

 

[Ort1z98]

Sub MM1()
For c = 1 To 8
For r = 1 To 8
Cells(1, 1).Offset(r - 1, c - 1).Interior.ColorIndex = (r + c) Mod 2 + 1
Next r
Next c
End Sub

This is what i have so far. but it seems i can´t use Mod. Instead i have to use if but I don´t know how to apply it here