如何把每个文件里的每个对应的sheet放到一个新的excel文件中？

每个excel文件有100多个sheet,一共有11个这样的文件，如何把每个文件里的每个对应的sheet放到一个新的excel文件中？也就是说1-11个文件，每个文件的sheet1单独出来，集中在一张excel表里，成为sheet1,sheet2,,,,,sheet11??
不知道有没有说清楚了，实在是不好意思，只有麻烦大家了！

sub copy()
dim i
Dim numofworkbooks As Integer
Dim q As Integer
numofworkbooks = Workbooks.Count
For q = 1 To numofworkbooks
Workbooks(q).Activate
worksheets(sheet1).activate
cells.select
selection.copy
workbooks("destination").activate
worksheets(q).activate
selection.paste
next q
end sub