How to delete the first column in every sheet in a workbook using VBA

Question

I have a workbook with 10+ sheets, and I need to delete the first column in every sheet.
Instead of manually doing this, I was wondering if anyone knew a short VBA macro that could do this for me?
Thanks!

Answer 1

You need to loop over all the worksheets:

Sub qwerty()
    Dim ws As Worksheet
    For Each ws In Sheets
        ws.Cells(1, 1).EntireColumn.Delete
    Next ws
End Sub