Private Sub Workbook_Open() Dim w As Window MsgBox "Executing the event procedure Workbook_Open." For Each w In Windows If w.Parent.Name <> ActiveWorkbook.Name And w.Visible Then w.WindowState = xlMinimized End If Next End Sub