Dim x&, y&, i&
With msflexgrid
y = .Rows
  .Row = y - 1
  x = .Row Mod 2
  If x = 0 Then
    For i = 0 To .Cols - 1
      .Col = i
      .CellBackColor = vbYellow 
    Next i
  Else
    For i = 0 To .Cols - 1
      .Col = i
      .CellBackColor = vbGreen 
   Next i
  End If
 End With