Macro to loop through all sheets and delete unwanted columns

I have the following macro which opens all the Excel files within a given folder, loops through them all and deletes columns G to N, then it re-saves each of the files.

It runs without error, but when I opened the Excel files to check that the columns had been deleted correctly, I noticed that the macro had only worked for one tab per file (Sheet1). However, I need it to loop through all the tabs in each of the files to delete the unwanted columns. The tab names are not the same in all the spreadsheet files.

I thought that the For Each Worksheet In ActiveWorkbook.Worksheets command would loop through all of the tabs within each of the open files?

How would I fix the macro so that it works for every tab?

Please Login or Register  to view this content.

You need to tell XL that the columns your deleting relate to the sheet in the Loop else it will fire against the Active sheet only... looping does not activate.

Use:

Please Login or Register  to view this content.

Note you don't need to select the columns to delete them... Selecting will slow your code.