Hi,

I've developed the following function to test if some style does exist in a
document:

Function xstyle(aStyle As String) As Boolean
  Dim sty As style
  On Error GoTo notexist
  Set sty = ActiveDocument.Styles(aStyle)
  Set sty = Nothing
  xstyle = True
  Exit Function
notexist:
  xstyle = False
End Function

For some time this has worked, but now when the style does not exist the
statement "Set sty = ActiveDocument.Styles(aStyle)" generates an error "the
asked member of the collection does not exist" and stops execution in stead
of jumping to the label Notexist:.

What can be at hand? Why the error handling doesn't work?

Thanks for suggestions

Henk