I'm looking for help regarding a performance problem I have with a VB macro
that renames sheets in an excel workbook.

I have a macro that renames sheets in a workbook. The workbook contains
approx. 52 sheets that need to be renamed/reordered. On a first pass the
sheets are renamed to a new temporary name which takes about 0.2 seconds per
sheet (±10 seconds for 50 sheets). On the second pass the sheets are renamed
to the final new name which takes about 7 seconds per sheet (±350 seconds for
50 sheets). After this renaming action sheets are reordered i.e. placed in
ascending order which takes about 0.1 second per sheet.
Each sheet contains data, graphs, named areas and have refrences to each
other.
During the renaming the Calculation is off. The names of the sheets are
numbers from 1 to 52. On the first pass they are renamed into R1 to R52, on
the second pass back again into 1 to 52 (sheets may get a new number
depending on sort criteria i.e. what was sheet 1 may become sheet 5, etc.).