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
|