Sub bullet() With ActiveSlide.Shapes(1).TextFrame.TextRange.ParagraphFormat.bullet .Type = ppBulletUnnumbered .Character = 254 With .Font .Name = "Wingdings" .Size = 44 .Color = RGB(255, 255, 255) End With End With End Sub