Delete selected columns across all sheets

LKingGzz · May 8th 2022

Hello, I have an excel workbook with 10 sheets, all with the same columns.

I want to delete , for example columns: A, J, K and L in all sheets.

I found this code, but only works in a single sheet, how can I make it work for all? thanks.

Code

Sub DeleteNAdjCol()
Range("A:A, J:J, K:K, L:L").Delete
End Sub

**royUK** · May 8th 2022

Try this

Code

Sub DeleteNAdjCol()
    Dim oWs As Worksheet
    Set oWs = ActiveSheet
    Sheets.Select
    Range("A:A,J:L").Select
    Selection.EntireColumn.Delete
    oWs.Select
End Sub

Delete selected columns across all sheets

Participate now!

Share

Similar Threads

VBA to select rows that contain a selected month?

Save Created sheet with different name

Getting code to execute across platforms Windows-Mac

File Splitter Add-In

Deleting Duplicates Across A Staggering Amount of Data

VBA Code to work across mutli sheet in one workbook