Luk automatisk en anden excelfil

Læg denne kode i ThisWorkbook modulet  i filA

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbooks("ExcelfilB.xls").Saved = True
    Workbooks("ExcelfilB.xls").Close
End Sub

Den kræver dog at ExcelfilB faktisk ER åben, nåpr ExcelfilA lukkes. Ellers giver den en fejl.

Dette kan løses ved at tilføje en linje

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Workbooks("ExcelfilB.xls").Saved = True
    Workbooks("ExcelfilB.xls").Close
End Sub

Det virker lige som det skal.
Tak for hjælpen.

Point

Endelig lykkedes det at give point.

Tak for det. Og godt at det virkede :-)