Range.Font (Excel)

Returns a Font object that represents the font of the specified object.

Dim fntFont As Font
Set fntFont = ActiveCell.Font