Selection.Range.ListFormat.ApplyListTemplate _ ListTemplate:=ListGalleries(wpsNumberGallery).ListTemplates(2)