Private Sub Workbook_Open() Sub CloseMainMenu() Windows("Filename.xlsm").Activate ActiveWindow.WindowState = xlNormal ActiveWindow.Close End Sub