automatically close second workbook
 

how can i get workbook 'A' to open workbook 'B' and close workbook 'B' when i
close workbook 'A'

automatically close second workbook
 

Try to copy both Event Macros into the ThisWorkbook level of Workbook A:
Private Sub Workbook_Open()
Workbooks.Open ("B.XLS")
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Workbooks("B.XLS").Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=True
End Sub
========
Micky


uk" wrote:

how can i get workbook 'A' to open workbook 'B' and close workbook 'B' when i
close workbook 'A'

automatically close second workbook
 

workbook 'B' opens once workbook 'A' opened but workbook 'B' does not close
when workbook closed

"מיכאל (מיקי) אבידן" wrote:

Try to copy both Event Macros into the ThisWorkbook level of Workbook A:
Private Sub Workbook_Open()
Workbooks.Open ("B.XLS")
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Workbooks("B.XLS").Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=True
End Sub
========
Micky


uk" wrote:

how can i get workbook 'A' to open workbook 'B' and close workbook 'B' when i
close workbook 'A'