Kent,

try this

With ActiveCell
.Value = Chr(152)
.Font.Name = "Wingdings 2"
End With


--
Hope that helps.

Vergel Adriano


"Kent McPherson" wrote:

I want to insert character 152 from Wingdings 2 into the current cell in my
worksheet. I can't seem to find the right syntax to do that. Can anyone
help?