Close and save changes in one workbook from another.

[donwb]

I have 2 workbooks A & B.
With B open, I add data to a worksheet.
Then when I open A, I need it to close B and save the changes I've made to B.
What code can I add to A & B do this, and where should it be located.

[mana]

Paste the code in ThisWorkbook module


Private Sub Workbook_Open()
Dim wb As Workbook

On Error Resume Next
Set wb = Workbooks("B.xlsx")
On Error GoTo 0

If Not wb Is Nothing Then
wb.Close Not wb.Saved
End If

End Sub