Sub font()
With Application.FindFormat.Font
.Name = "Arial"
.Size = "12"
.Bold = True
End With
With Application.ReplaceFormat.Font
.Name = "Arial Black"
.Bold = False
End With
Cells.Replace What:="5", Replacement:="5", LookAt:=xlPart, SearchOrder _
:=xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub