Sub TongHop()
Dim FileS As FileSearch
Dim Wb As Workbook, Wb1 As Workbook, Rng As Range
Dim F As Variant
Set Rng = Selection: Rng.ClearContents
Application.ScreenUpdating = False: Application.DisplayAlerts = False
Set Wb = ThisWorkbook
FPath = Wb.Path
Set FileS = Application.FileSearch
With FileS
.NewSearch
.Filename = "*.xls"
.LookIn = FPath
.SearchSubFolders = False
.Execute
End With
For Each F In FileS.FoundFiles
If F = Wb.FullName Then GoTo NextFile
Workbooks.Open F
Set Wb1 = Workbooks(Replace(F, FPath & "\", ""))
With Rng
Wb1.Sheets(.Parent.Name).Range(.Address).Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
End With
Wb1.Close False
NextFile:
Next F
Application.ScreenUpdating = True: Application.DisplayAlerts = True
End Sub