Dim styleLoop As StyleFor Each styleLoop in ActiveDocument.Styles If styleLoop.BuiltIn = False Then Msgbox styleLoop.NameLocal End IfNext styleLoop