'Hiện bảng để select nhiều file xls chọn khi ghép vào:
selectedFiles = Application.GetOpenFilename( _
filefilter:="Excel Files (.xls),.xlsx", MultiSelect:=True)
'Cho chạy từ file chọn đầu tiên đến file chọn cuối cùng:
For iFileNum = LBound(selectedFiles) To UBound(selectedFiles)
strFileName = selectedFiles(iFileNum)
'Mở file tuần tự và gán cho tên là wb
Set wb = Workbooks.Open(strFileName, UpdateLinks:=True, Editable:=True)
'Cho chạy từng sheet trong workbook
For Each ws In wb.Sheets
'Muốn làm cái gì thì ghi vào đây 
Next ws
wb.Close SaveChanges:=False
Next