Type Info:
VBE As Variant
Dim App As Application Dim VBE As Variant Set App = Application Set VBE = App.VBE