Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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