Type Info:
Name as String
Dim Dicts As Dictionaries Dim Dict As Dictionary Set Dicts = Application.Dictionaries Set Dict = Dicts.Item(1) MsgBox Dict.Name