Open and Hide a workbook

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How can I open Workbook 1 and have Workbook 2 automatically open and be
hidden? Then, when Workbook 1 is closed, will Workbook 2 close also?

Thank you in advance.
 
Paste following code into ThisWorkbook's code:

Private Sub Workbook_Open()
Dim oWB As Workbook
Set oWB = Workbooks.Open(Me.Path & "\Workbook2.xls")
oWB.Windows(1).Visible = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("Workbook2.xls").Close False
End Sub



HTH
 
Back
Top