خاصية Name

Workbook.Sheets[1].Range['A1', 'C5'].Font.Name := 'Arial';

MessageDlg( Workbook.Sheets[1].Range['A1', 'A1'].Font.Name +
            ' is the font name of "A1" cell.',
            mtInformation, [mbOk], 0);