hi
i have just managed to combine 8 books into one sheet ,a feat for me ,anyway now the master book has lots of duplicate sheets ie sheets2(8),sheets3(9)ect
i just want all sheets 1 to be populated in this book ,not bothered if its named sheet1, sheet2 ect can be as is sheet1(1),sheet1(2),have tried to delete all empty sheets but it deletes all of them
any suggestions would be good


this is code used to get sheet1 from book1 to book8 but next batch could only have book1 to book4 only sheet1 will be copied always its just that it ends up multiple sheets

cheers colin
Sub GetSheets()
 Path = "C:\Users\colin\Desktop\new\"
 Filename = Dir(Path & "*.xls")
 Do While Filename <> ""
 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()
 Loop
 End Sub