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?

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?

Chip,
He's got the last column (S) - he had a 2007 file go south on him, reporting
he had over 24M rows when he really only had 700 or so. See this discussion
for that background if you need it:
http://www.microsoft.com/office/comm...0-221433f2f12d

Hey, BusyHighlighter ... did you get rid of all those zeros? I posted where
to find the setting in that other discussion, referenced above.

"Chip Pearson" wrote:

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?