Easy Question - Delete last column

[Mississippi Girl]

I know I have seen this on the board before, but after a few hours of searching here and some google-ing around, I have not been able to find the answer...

How do you delete the last column containing text?

 

[Smitty]

Here's one way:

ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).EntireColumn.Delete

HTH,

 

[Yogi Anand]

I know I have seen this on the board before, but after a few hours of searching here and some google-ing around, I have not been able to find the answer...

How do you delete the last column containing text?

Hi Mississippi Girl:

How about ...

With Range("A1").SpecialCells(xlCellTypeLastCell)
        .EntireColumn.Delete
End With

Note: to make sure that the LastCell is indeed the the physical cell in the last column of the worksheet, the workbook should be saved in case the entry in then last cell in the worksheet was deleted at some point in time.

 

[Mississippi Girl]

I love this board!

Thanks!