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