Dim coll As SAObjects, i As Integer
Set coll = sa.Encyclopedia.GetAllDiagrams
coll.ReadAll
For i = 1 To coll.Count
Debug.Print coll.Item(i).Name
Next i