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


'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)


Continue reading ...