Range.Font (Excel)

Devuelve un objeto Font que representa la fuente del objeto especificado.

Dim fntFont As Font
Set fntFont = ActiveCell.Font