The following code sets the width of the text of the current cell when the MSHFlexGrid is in focus.
Note If you are using the MSFlexGrid, substitute "MSHFlexGrid1" with "MSFlexGrid1."
Sub MSHFlexGrid1_GotFocus()
MSHFlexGrid1.CellFontWidth =5
End Sub