change code from open file to close file when bring value from open file

[Maklil]

Hello
I use this code to sum the whole column(G) from DATA file and populate value in A1 for MASTER file .
I have to make both files are open . How I make DATA file is closed after brings value without the file has already open?

Sub test()
Dim wb1, wb2 As Workbook
Set wb1 = Workbooks("MASTER")
Set wb2 = Workbooks("DATA")
wb1.Sheets("Sheet1").Cells(1, 1).Value = Application.Sum(wb2.Sheets("MAIN").Columns(7))
End Sub

thanks

 

[John_w]

Change the path and file extension of the DATA workbook as required.

Sub test()
    Dim wb1 As Workbook, wb2 As Workbook
    Set wb1 = Workbooks("MASTER")
    Set wb2 = Workbooks.Open("C:\path\to\DATA.xlsx")
    wb1.Sheets("Sheet1").Cells(1, 1).Value = Application.Sum(wb2.Sheets("MAIN").Columns(7))
    wb2.Close False
End Sub

 

[Maklil]

great !
this is what I look for it.
thank you so much, John.