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