Deleting entire columns

[RichardMGreen]

Hi all

I've got the following piece of code I've inherited:-

    Range("G1").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Select
    Selection.EntireColumn.Delete

It's part of a much bigger macro and all it does it gets the last used column to the right and deletes the one after it just in case there's some odd characters in it (which messes up a data upload).

I'm fairly certain there's an easier way to do this but I can't get my head around it.

Anyone any pointers?

 

[VoG]

Try

Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).EntireColumn.Delete

 

[RichardMGreen]

Thanks Peter, I'll give it a go when I run the test.

 

[mirabeau]

Hi all

It's part of a much bigger macro and all it does it gets the last used column to the right and deletes the one after it just in case there's some odd characters in it (which messes up a data upload).

Presumably you don't mean the one after the last used column to the right, coz if there's one after it then it wouldn't be the last used column.

And what if there aren't any odd characters there, and the "last used column" really is the last used column? Do you still want it deleted?

And is the righthand element in Row1 in the same column as the RH element in other rows? That may make a difference to the approach to deletion.

 

[RichardMGreen]

The last column I want to keep has a header.
Occasionally, the system we use puts odd columns in the column after which is the column I want to delete. Even if it's empty, I can safely delete the column anyway.

 

[RichardMGreen]

Peter - just tried your line of code in a test workbook and it works perfectly. Thanks again.