Swap columns

Hello,

My data is comprised of 4 columns A B C D. What I want to do is to have A C B D (there are no labels on the top) My code works for the active sheet (recorded macro) but can't make it work for all the sheets of the workbook. This is what I have so far:

Please Login or Register  to view this content.

Could anyone help me how to do this work?

Thanks in advance

Please Login or Register  to view this content.

Use of the select without activating the sheet will cause problems. Neither are required though.