Add column A for all sheets

Hi I need to add a new column at column A in all sheets. I have this code to implement it into one sheet but not all of them. Can anyone help me on how to make this macro add column A for every sheet?

Formula:

Sub addColumnA()

'

' addColumnA Macro

'Adds column "A" to a spreadsheet

'

    Columns("A:A").Select

    Selection.Insert Shift:=xlToRight

End Sub

Sub inseertc()
Dim ws As Worksheet
Application.ScreenUpdating = 0
For Each ws In ThisWorkbook.Worksheets
    ws.Columns(1).Insert
Next
Application.ScreenUpdating = True
End Sub

Thanks AB33. I also find this works too.

Formula:

Sub addColumnA()



Dim ws As Worksheet



For Each ws In ActiveWorkbook.Worksheets



    ws.[A:A].Insert



Next ws



Call removeGridlines

End Sub

 ws.[A:A].Insert is the same as columns(1), or columns("A")

This is Select/Selection comes in play.

Sub test()
    Sheets.Select
    Sheets(1).Activate
    Columns(1).Select
    Selection.Insert
End Sub