Try throwing these lines in there:
.Font.Name = "Wingdings"
.Character = 167
I think they need to go after your first With.
I got this by recording a new macro and changing something to a square
bullet. This is part of the resulting code. I did this on my PC, so if
it doesn't work for you, try recording a macro on your Mac and see what
you get.
--David
David M. Marcovitz, Ph.D.
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/