Time to Unhide an Entire Column

[Barb Reinhardt]

I am unhiding a column using this line

r.entirecolumn.hidden = false

were r is one cell and is defined as a RANGE. It's taking 39 seconds per
column to unhide. It's been working to unhide another column the whole time
I've been writing this question and still isn't done. This is excessive.
It didn't use to take this long. Has anyone seen this behavior. I'm using
Excel 2003. Any suggestions on how to address it?

Thanks,
Barb Reinhardt

 

[Bernie Deitrick]

Barb,

Try


With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
.DisplayAlerts = False

r.entirecolumn.hidden = false

.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With

 

[Dave Peterson]

Option Explicit
Sub testme()

Dim CalcMode As Long
Dim ViewMode As Long

Application.ScreenUpdating = False

CalcMode = Application.Calculation
Application.Calculation = xlCalculationManual

ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView

ActiveSheet.DisplayPageBreaks = False

'do the work

'put things back to what they were
Application.Calculation = CalcMode
ActiveWindow.View = ViewMode

End Sub

=======
And maybe you could unhide multiple columns at once???

dim r as range
with activesheet
set r = .range("a1,c9,e15,h2:k2,z1")
end with

r.entirecolumn.hidden = false

 

[Barb Reinhardt]

I should have mentioned that I've already turned off screen updating,
calculation and events. Any other suggestions?

Thanks,
Barb Reinhardt