With Application
  .Top=200
  .Width=800
  .Height=400
End with

Private Sub Workbook_Open()
Dim k As Byte
Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Services = Locator.ConnectServer(".")
Set Obj = Services.ExecQuery("Select * from Win32_DesktopMonitor")

k = 1
With Application
    For Each Item In Obj
        If k > 1 Then Exit For
        .WindowState = xlNormal
        .Top = Int(Item.ScreenHeight / 4)
        .Height = Int(Item.ScreenHeight / 2.1)
        .Width = Item.ScreenWidth
        .Caption = "Учет второгодних деталей"
        k = k + 1
    Next
End With

InitModule.init_proc
Application.MacroOptions Macro:="MenuModule.CreateRpsMenu", _
HasShortcutKey:=True, ShortcutKey:="U"
MenuModule.CreateRpsMenu
Application.AutoRecover.Enabled = False
End Sub