Macro To Insert Column Not Working

Question

Hello again helpful people,

My goal is to insert one column before column A in multiple worksheets in a large workbook.  I recorded my keystrokes while I did that, then copied that code between the 2 lines of this code:

For Each [worksheet] In ActiveWorkbook.Worksheets

Next [worksheet]

and came up with the code below:

Sub InsertColA()    Dim WSheet As Worksheet    For Each WSheet In ActiveWorkbook.Worksheets        Columns("A:A").Select        Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove    Next WSheetEnd Sub

But the macro is not proceeding from worksheet to worksheet.  It just keeps inserting a column in the first worksheet.  I can't figure out why.  Could someone please help me?

Many, many thank yous,

-Lynne

Answer 1

Columns("A:A") refers to to the active sheet, not to WSheet.

Try this version:

Sub InsertColA()

    Dim WSheet As Worksheet

    For Each WSheet In ActiveWorkbook.Worksheets

        WSheet.Columns(1).Insert

    Next WSheet

End Sub

Answer 2

HansV, thank you so much!  Of course, it works like a charm.

And thank you for your explanation:

Columns("A:A") refers to to the active sheet, not to WSheet.

Have a wonderful day,

Lynne