CODEWITHSUNDEEP
excelvbamacros
Navy
Navy

Reputation: 59

Delete fist column from all sheet except current sheet in excel

I want to delete the first column(A:A) in each sheet except in the first or the current sheet. Can somebody help me. I used the following code which deletes first column from each sheet.

Sub deletefirstcolum()

    Dim ws As Worksheet

    For Each ws In Sheets

    ws.Cells(1, 1).EntireColumn.Delete

    Next ws

End Sub

Please help. How do I exclude first or current sheet.

Upvotes: 0

Views: 270

Answers (2)

akovner
akovner

Reputation: 118

Put an If condition on the worksheet:

Sub deletefirstcolum()

    Dim ws As Worksheet

    For Each ws In Sheets
        If Not ws Is ActiveSheet Then
            ws.Cells(1, 1).EntireColumn.Delete
        End If

    Next ws
End Sub

Upvotes: 1

Scott Craner
Scott Craner

Reputation: 152660

Test whether ws = to the active sheet:

Sub deletefirstcolum()
    Dim aWs As Worksheet
    Set aWs = ActiveSheet

    Dim ws As Worksheet

    For Each ws In Sheets
        If aWs.Name <> ws.Name Then
            ws.Cells(1, 1).EntireColumn.Delete
        End If
    Next ws

End Sub

Upvotes: 0

Related Questions