ReplaceFormat Property

Sets the replacement criteria to use in replacing cell formats.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

The following example sets the search criteria to find cells containing Arial, Regular, Size 10 font, replaces their formats with Arial, Bold, Size 8 font, and then notifies the user.

Sub MakeBold()

    ' Establish search criteria.
    With Application.FindFormat.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
    End With

    ' Establish replacement criteria.
    With Application.ReplaceFormat.Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 8
    End With

    ' Notify user.
    With Application.ReplaceFormat.Font
        MsgBox .Name & "-" & .FontStyle & "-" & .Size & _
            " font is what the search criteria will replace cell formats with."
    End With

End Sub