Hi Brad

This code is pretty much a recorded macro thinned out a bit.

With ActiveCell.Characters(Start:=1, Length:=6).Font
.Name = "Arial"
.FontStyle = "Regular"
End With

With ActiveCell.Characters(Start:=7, Length:=1).Font
.Name = "Wingdings 3"
.FontStyle = "Regular"
End With

Hope it helps

Steve