Type Info:
Count As Long
Dim Dicts As Dictionaries Dim NumberOfDicts As Long Set Dicts = Application.Dictionaries NumberOfDicts = Dicts.Count