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 Assumes: MSFlexGrid.Rows must be set to an even number or you'll get an Error 30009 (invalid row value). |