Private Sub Form_Load()Dim r As IntegerDim c As IntegerWith MSFlexGrid1.Cols = 10.Rows = 15For r = 1 To .Rows - 1If r Mod 2 = 0 Then.Row = rFor c = 1 To .Cols - 1.Col = c.CellBackColor = vbYellowNext cEnd IfNext rEnd WithEnd Sub