Dim i&, j&, n&
 
  n = 1
  With MSFlexGrid1
    .Redraw = False
    .Rows = 7
    .Cols = 7
    .FixedCols = 0
    .FixedRows = 1
    .ColWidth(-1) = 48 * Screen.TwipsPerPixelX
    .ColAlignment(-1) = flexAlignCenterCenter
    .Font.Bold = True
    .Font.Size = 18
    For i = 0 To 6
      .TextArray(i) = WeekdayName(i + 1, True, vbMonday)
    Next i
    For i = 1 To .Rows - 1
      For j = 0 To .Cols - 1
        .Row = i
        .Col = j
        .Text = n
        If j = 6 Then
          .CellForeColor = vbWhite
          .CellBackColor = vbRed
        Else
          .CellForeColor = vbBlack
          .CellBackColor = vbWhite
        End If
        n = n + 1
        If n > 31 Then Exit For
      Next j
      If n > 31 Then Exit For
    Next i
    .Row = 1
    .Col = 0
    .Redraw = True
  End With

Gruss,

Zardoz