Without error-trapping you must walk the collection ..
For Each sty In ActiveDocument.Styles If sty.NameLocal = "widPunktlista" then ' style exists exit for endif Next
-- Enjoy, Tony
> Before I use a style - how do I check that the style exists..? (without > using On Error goto...) > > Selection.Style = ActiveDocument.Styles("widPunktlista")