How do you insert wingdings symbols using VBA macro?

[Guest]

Is there a way to write/record a VBA macro to insert a wingdings 2 symbol? I
am specifically interested in the the open circle, solid black circle, open
square, and solid black square. Thanks for any help!

 

[Guest]

Sub demo()
With ActiveCell
.Value = 1
.Font.Name = "Wingdings 2"
End With
End Sub

 

[Guest]

nope, that didn't seem to work. i'm an amateur, so more instruction may be
needed.

thanks.