Cho xin đoạn code chèn tên file vào cột A lúc nối nhiều file thành một file (1 người xem)

[kiemchu74]

Mình có đoạn VBA này dùng để nối nhiều file excel thành một file,dữ liệu của từng sheet trong mỗi file được đưa vào mỗi sheet của file tổng hợp.Nhưng lúc nối lại ko biết dữ liệu đó là của sheet nào, file nào,mình mong các bạn chỉnh giúp để có thể chèn tên sheet và tên file vào cột A của mỗi sheet sau khi được nối dữ liệu.
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub