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!