Type Info:
Dictionaries As Dictionaries
Dim App As Application Dim Dicts As Dictionaries Set App = Application Set Dicts = App.Dictionaries