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:

Sub Macro1()
Dim s As Worksheet
For Each s In ActiveWorkbook.Worksheets
    Columns("B:B").Select
    Selection.Cut
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
Next s
End Sub

Could anyone help me how to do this work?

Thanks in advance

Sub Macro1()
Dim s As Worksheet
For Each s In ActiveWorkbook.Worksheets
   with s
        .Columns("C:C").Cut
        .Columns("B:B").Insert Shift:=xlToRight
   end with
Next s
End Sub

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