Olá Ninh@,
Depois de preencher as suas células com os títulos de cada coluna, faça isso:
Dim Cont as Integer
With MSFlexGrid1
For Cont = 0 To .Cols - 1
.Row = 0
.Col = Cont
.CellAlignment = flexAlignCenterCenter
.CellFontBold = True
Next
End With
Fácil, não acha?
um abraço,
Sandro.