Generate square bullet specifically?

[donedown]

The following works, is square bullet is the last selected bullet style from the GUI menu.

Selection.Range.ListFormat.ApplyBulletDefault

I would like to use syntax that will generate the square shaped bullet at all times, irregardless of the last selected bullet icons.

[gmayor]

How about

With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61607)
        .Font.Name = "Wingdings"
    End With
    Selection.Range.ListFormat.ApplyListTemplateWithLevel _
            ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1)