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...

Continue reading ...