Fill 3 different colours every Step7

[motilulla]

</SPAN></SPAN>Hello,</SPAN></SPAN>

Need a VBA, which can fill 3 different colours every Step7 as long as data find in the columns C:D </SPAN></SPAN>
Note: colours must be different in both C & D column as shown in the Example...</SPAN></SPAN>

Book1
	A	B	C	D
1
2
3
4
5			n1	n2
6			5	5
7			6	6
8			5	5
9			5	5
10			6	6
11			5	5
12			6	6
13			6	6
14			6	6
15			7	7
16			5	5
17			6	6
18			7	7
19			7	7
20			6	6
21			5	5
22			6	6
23			6	6
24			5	5
25			7	7
26			6	6
27			6	6
28			5	5
29			5	5
30			7	7
Sheet1

Thank you all</SPAN></SPAN>

Excel 2000</SPAN></SPAN>
Regards,</SPAN>
Moti</SPAN></SPAN>

 

[Fluff]

How about

Sub Motilulla()
   Dim i As Long, Clr As Long
   
   For i = 6 To Range("C" & Rows.Count).End(xlUp).Row Step 7
      With Range("C" & i).Resize(7)
         Clr = (i Mod 3) + 37
         .Interior.ColorIndex = Clr
         .Offset(, 1).Interior.ColorIndex = IIf(Clr = 39, 37, Clr + 1)
      End With
   Next i
End Sub

 

[motilulla]

How about

Sub Motilulla()
   Dim i As Long, Clr As Long
   
   For i = 6 To Range("C" & Rows.Count).End(xlUp).Row Step 7
      With Range("C" & i).Resize(7)
         Clr = (i Mod 3) + 37
         .Interior.ColorIndex = Clr
         .Offset(, 1).Interior.ColorIndex = IIf(Clr = 39, 37, Clr + 1)
      End With
   Next i
End Sub

Thank you Fluff, I liked the colours combination too will keep them as it is. Solved!</SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Moti </SPAN></SPAN>

 

[Fluff]

You're welcome & thanks for the feedback