How do you insert wingdings symbols using VBA macro?
 

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!

How do you insert wingdings symbols using VBA macro?
 

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

--
Gary''s Student - gsnu200734


"mamabear" wrote:

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!

How do you insert wingdings symbols using VBA macro?
 

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

thanks.

"Gary''s Student" wrote:

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

--
Gary''s Student - gsnu200734


"mamabear" wrote:

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!