Type Info:
Tools As Tools
Dim App As Application Dim Tools As Tools Set App = Application Set Tools = App.Tools