Range.Font (Excel)

Retorna um objeto Font que representa a fonte do objeto especificado.

Dim fntFont As Font
Set fntFont = ActiveCell.Font