Macro to delete specific columns and as well all columns to the right of a named column

You want to code sometimes like this:

Sub Fails()

Columns("B,D,F:G,I:XFD").Delete
End Sub

But unfortunately this syntax did not work. But this one does:

Sub Works()

Range("B1,D1,F1:G1,I1:XFD1").EntireColumn.Delete
End Sub

Any further questions?

Andreas.

Afraid I tried one on the list of two and it did not delete all the columns.

Dim sh As Worksheet

'as mentioned in comments by FunThomas, deleting should be done "backwards", i.e. for right to left 

For Each sh In Worksheets 

    sh.Columns("COL ABC").Delete 

    sh.Columns("COL DEF").Delete 

    sh.Columns("COL GHI").Delete 

Next 

End Sub

I'm sorry, I don't understand. Please show me a sample file.

Andreas.

How would I use the same code with column names as opposed to column letters, which change as you delete one or more?

Please check whether if this article will help you: https://www.extendoffice.com/documents/excel/3086-excel-delete-columns-based-on-header.html 

Also, this thread: https://stackoverflow.com/questions/50228930/how-to-write-the-vba-code-to-delete-specific-columns-for-all-worksheets-in-a-wor