Range.Font property

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

Syntax

expression.Font

expression A variable that represents a Range object.

Example

This example determines if the font name for cell A1 is Arial and notifies the user.

Sub CheckFont()
    Range("A1").Select
    ' Determine if the font name for selected cell is Arial.
    If Range("A1").Font.Name = "Arial" Then
        MsgBox "The font name for this cell is 'Arial'"
    Else
        MsgBox "The font name for this cell is not 'Arial'"
    End If
End Sub