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

--
HTH,
Bernie
MS Excel MVP


"Barb Reinhardt" wrote in message
...
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