Proper procedures to delete multiple columns with 47,000 rows of data
 

2007.

This is more involved than initial thoughts would indicate.

I wish to delete 4 columns in a massive w/s

Whether via VBA:

Wks.Range("U:U,V:V,W:W,X:X,Y:Y").EntireColumn.Dele te

-or-

XL SelectColumn (Del)

Excel starts the processor screaming at 98% utilization for 16 minutes.

The code around the delete is:

Application.DisplayAlerts = False
Sheets("Temp").Delete
If ActiveSheet.AutoFilterMode Then
Wks.UsedRange.AutoFilter
End If
Application.Calculation = xlCalculationManual
Wks.Range("U:U,V:V,W:W,X:X,Y:Y").EntireColumn.Dele te
Application.Calculation = xlCalculationAutomatic

Whether I stop calculation and/or reset UsedRange to actual cells containing information (vs
formated cells) I run into this problem.

Any help or thoughts appreciated!! What am I missing that is obvious?

TIA EagleOne