Font.ThemeFont procedure builder

Font.ThemeFont (Excel)

Returns or sets the theme font in the applied font scheme that is associated with the specified object.

Possible Values are xlThemeFontMajor - Major, xlThemeFontMinor - Minor, xlThemeFontNone - Do not use any theme font.
ActiveCell.Font.ThemeFont = xlThemeFontMajor