MsFlexGridCol

Private Sub ColouredRows()
Dim x As Long
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
Do Until MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
For x = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = x
MSFlexGrid1.CellBackColor = &HC0FFC0'Light green
'Also could be light yellow &HC0FFFF

'Or light blue &HFFFFC0

'Optional: MSFlexGrid1.CellForeColor = vbAny

Next
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
Loop
End Sub