try below code
just change Path or filename name extn. (.xls to .xlsx or other )
Sub clubefile()
Dim num As Integer
Dim x As Integer
Path = "C:\Documents and Settings\xlstime\Desktop\delete\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename
Hi ,
I have more than 200 excel files .i would like to merge all files into
one but i would like to have 200 sheets in one excel .i need your help
thank you
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page