Dim i&, N&, Wert&
 
  With MSFlexGrid1
    N = .Cols - .FixedCols
    .Row = .FixedRows
    For i = 0 To N - 1
      Wert = 255 / (N - 1) * i
      .Col = .FixedCols + i
      .CellBackColor = RGB(Wert, 255 - Wert, 0)
    Next i
  End With

Gruss,

Zardoz