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