Deleting non-contiguous columns based on column number

[sodabrab]

Hey everyone,

I'm having a little trouble. I was able to select one group that I wanted to delete based on the column number because I am using a variable:

Range(Columns(10), Columns(testint - 10)).Select
Selection.Delete Shift:=xlToLeft

testint is just the number of columns in the sheet

But I want to select another range at the same time so the testint variable would still be valid:

Range(Columns((testint - 4), Columns(testint)).Select

I tried using union in the code below but I got an error.

Union(Range(Columns(10), Columns(testint - 10)), Range(Columns((testint - 4), Columns(testint)))).Select
Selection.Delete Shift:=xlToLeft

Is there another way to do this? Thanks for the help.

 

[pgc01]

Hi
Welcome to the board

There's no problem with what you are trying to do, you just messed up the parentheses. Try:

    Union(Range(Columns(10), Columns(testint - 10)), Range(Columns(testint - 4), Columns(testint))).Select
    Selection.Delete Shift:=xlToLeft

Remark:

You don't need to select the range:

    Union(Range(Columns(10), Columns(testint - 10)), Range(Columns(testint - 4), Columns(testint))).Delete