I get a 438 error for the .Value = Chr(152) statement.

"Vergel Adriano" wrote in message
...
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?