combine multiple ms excel sheets into one sheet in 1 click
combine multiple ms excel sheets into one sheet in 1 click #techalert #howto #msexcel
Full video on : • Combine multiple excel files in one |...
Sub combine()
Dim i As Integer
Path = "C:\Users\PC\Desktop\New folder\"
Filename = Dir(Path & "*.xls")
For i = 1 To 3
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Next
End Sub
