Insert Symbol from Wingdings

[Kent McPherson]

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?

 

[Vergel Adriano]

Kent,

try this

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

 

[Joel]

You need to use chr(152) to specify the character you want.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/25/2007
'

'
ActiveCell.FormulaR1C1 = Chr(152)
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Wingdings 2"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

 

[Kent McPherson]

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

 

[Kent McPherson]

My bad. I had the statement wrong. It worked. Thanks!!