The following code sets the text of the current cell to 12 points whenever the MSHFlexGrid is in focus.
Note If you are using the MSFlexGrid, substitute "MSHFlexGrid1" with "MSFlexGrid1."
Sub MSHFlexGrid1_GotFocus()
MSHFlexGrid1.CellFontSize =12
End Sub