Font.ThemeFont (Excel)
Returns or sets the theme font in the applied font scheme that is associated with the specified object. Possible return values are xlThemeFontMajor - Major, xlThemeFontMinor - Minor, xlThemeFontNone - Do not use any theme font.
ActiveCell.Font.ThemeFont = xlThemeFontMajor