Automatic Closing Of Workbooks

1. I am opening several Excel Workbooks and copy ( consolidate) this one into one worksheet in a separate workbook.

2. I want to close those workbooks automatically that I opened once it was copied and pasted to the Target worksheet.

3. The workbook that should remain opened should be the target workbook.

4. The codes below allowed me to open multiple workbooks at the same time and copy them to target workbook but I do not know how to close them automatically.

Sub OpenFilesOnNetworkDrive()
Dim i As Integer
Dim Filt
Dim FiltIndex
Dim Title
Title = "Select files: Hold Ctrl to select multiple files."
Filt = "Excel Files (*.xls),*.xls," & "Text Files (*.txt),*.txt," & "All Files (*.*),*.*"
FiltIndex = 1