Dear all,

I have code as follows:

k = 0
For i = 0 To rs.RecordCount - 1
k = k + 2
For j = 0 To rs.Fields.Count - 1

Sheet1.Cells(k + 5, j + 1) = rs.Fields(j).Value
' How to add code to change the row of k+5

Next j

rs.movenext
next i

In the above code, I want to change the row color of rows
k+5 to green. How can I do that?

Thanks