Public Sub copyAllcsvs(strBookName As String)
Dim strCSVfile As String
'this is necessary since the code is recursive until there is only the original workbook
If Windows.Count = 1 Then GoTo Done
'this takes it to any workbook but the main, essentially the next workbook
Windows.Item(1).ActivateNext
'this ensures the workbook name is not lost
strCSVfile = ActiveWorkbook.Name
'the next two lines select all the sheets and copy them to sheetCompiler.xls (to the end)
Workbooks(strCSVfile...