This example sets the font name for cells A1:C5 to Arial

].Range[

'C5'

].Font.Name := This example displays the font name of the cell A1

'A1'

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

].Font.Name +

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