> Start here:
Sub testIntroduceParameter()
Dim rng As Range, rowIndex As Long, colour As Long, colIndex As Long
Set rng = Worksheets.Add().Range("A1:Z1000")
For rowIndex = 1 To rng.Rows.Count
IntroduceParameter rowIndex, rng
Next rowIndex
End Sub
Sub IntroduceParameter(ByVal rowIndex As Long, ByVal rng As Range)
Dim colour As Long, colIndex As Long
colour = (rowIndex * 256 + rowIndex * 65536) Mod 16777216
colIndex = rowIndex / 2 + 1
rng.Cells