Regards,
Ed
set calculation to manual, run your code, reset it to what it was.
Turn screenupdating off when you start and on when you finish.
turn the display of pagebreaks off when you start.
Lots of my macros have this at the top:
Dim CalcMode As Long
CalcMode = Application.Calculation
Application.Calculation = xlCalculationManual
ActiveSheet.DisplayPageBreaks = False
and near the bottom:
Application.Calculation = CalcMode
Application.ScreenUpdating = True
--
Dave Peterson
ec3...@msn.com