Do something like the following:
ActiveCell.Value = "u"
With Selection.Font
.Name = "Wingdings 3"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
All I have done is to define the font as well. The above gives a solid
right-pointing large arrow.