The following code sets the text of the current cell to 12 points whenever the ModHFGrid is in focus.
Sub ModHFGrid1_GotFocus() ModHFGrid1.CellFontSize =12 End Sub