Вопрос про VBA в Excel - как пробежаться по диапазону, выделяя 2 ячейки красным, а две бел

Формулировка задачи:

Вопрос про VBA в Excel - как пробежаться по диапазону, выделяя 2 ячейки красным, а две белым - это календарь такой, когда работаешь 2x2 суппортом, очень удобно.

Решение задачи: «Вопрос про VBA в Excel - как пробежаться по диапазону, выделяя 2 ячейки красным, а две бел»

textual
                            Листинг программы 
                        

                            <font color="blue">sub</font> test()
<font color="blue">Set</font> myRange = Range(<font color="teal">"A1:H8"</font>)
n = <font color="darkblue"><b>1</b></font> <font color="00AA00">' первая красная ячейка в диапазоне</font>
<font color="blue">Do</font>
 <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>4</b></font>
  <font color="blue">If</font> n < myRange.Cells.Count <font color="blue">Then</font> myRange(n).Interior.ColorIndex = IIf(i < <font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>38</b></font>, <font color="darkblue"><b>2</b></font>)
  n = n + <font color="darkblue"><b>1</b></font>
 <font color="blue">Next</font>
<font color="blue">Loop</font> <font color="blue">While</font> n < myRange.Cells.Count
<font color="blue">End</font> <font color="blue">sub</font>
                        