Type Info:
Application.Hwnd As Long
Dim App As Application Dim Hwnd As Long Set App = Application Set Hwnd = App.Hwnd