title: Select, insert, cut, paste on all worksheets gives an error
body: <p>I am tyring to loop this vba execution to all worksheets. Apparently, it only manage to work on the currently active worksheet. It was not able to repeat this for the other worksheets. Why?</p>
  
  <pre><code>Sub adjustcolumns1()
   Dim ws As Worksheet
      For Each ws In ActiveWorkbook.Worksheets
  
      Columns("B:B").Select
      Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
      Columns("D:D").Select
      Selection.Cut
      Columns("B:B").Select
      ActiveSheet.Paste
      Columns("D:D").Select
      Selection.Delete Shift:=xlToLeft
      Columns("H:H").Select
      Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
      Columns("J:J").Select
      Selection.Cut
      Columns("H:H").Select
      ActiveSheet.Paste
      Columns("J:J").Select
      Selection.Delete Shift:=xlToLeft
  Next ws
  
  End Sub
  </code></pre>