If you know the last column that contains real data, use code like

Sub AAA()
Dim N As Long
Const LAST_COLUMN_WITH_REAL_DATA = 20

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
For N = LAST_COLUMN_WITH_REAL_DATA To Columns.Count
Columns(LAST_COLUMN_WITH_REAL_DATA + 1).Delete
Next N
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"The BusyHighLighter" wrote
in message ...
I posted earlier about having 26 mil rows and an inability to sort. I have
gotten the row problem fixed. Now I see that I have 16,000+ columns.

How can I get rid of these?