Thanks Tom. Will Give it a try!
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org


"Tom Ogilvy" wrote:

Excel seems to have a problem with repetitive copying of sheets.

cnt = TempWb.sheets.count
TempWb.Sheets.copy After:=Workbooks(YTDWbName).Sheets(1)
for i = 2 to cnt + 1
With Workbooks(YTDWbName).sheets(i)
.Name = Mid(.Name, 1, 27) & "(4)"
Next sh
Next

--
Regards,
Tom Ogilvy


"Chaplain Doug" wrote:

Excel 2003. I have some code that copies sheet by sheet from one workbook
into another, renaming the sheets as it goes. Even though the source
workbook has 80 sheets, the copy never gets past the 58th sheet, then errors
out. I have tried using various source workbooks and always bomb at the 58th
sheet. It is not a problem with the sheet being copied. Here is the code:

For Each sh In TempWb.Sheets
'Copy
sh.Copy After:=Workbooks(YTDWbName).Sheets(1)
'Rename
YTDWb.ActiveSheet.Name = Mid(YTDWb.ActiveSheet.Name, 1, 27) + "(4)"
Next sh

What could be my problem? Thanks and God bless for any help.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org