Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Workbook open event
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