Dictionary for TableStyle not creating.

[Dave F.]

Hi
A. '07

Any idea why myStyle returns Nothing for the code below?
It should test to see if a table style existing & create it if it doesn't.

tblDict correctly returns with one item in it (The Standard style)

What's irritating about this is that it worked when I first wrote it a year ago.

Any ideas for a solutions?

Thanks
Dave F.

Dim tblDict As AcadDictionary
Dim myStyle As AcadTableStyle 

Function SetStyle(ByVal Name As String)
  Set tblDict = ThisDrawing.Database.Dictionaries.Item("ACAD_TableStyle") ' create a list of Tables
  On Error Resume Next
  tblDict.Item (Name) ' does it exist
  If Err <> 0 Then  ' if it doesn't - create it
    Set myStyle = tblDict.AddObject(Name, "AcDbTableStyle")
    With myStyle
     <etc>...