The code in the function worked well until now. I have taken out the
original first sheet and I believe that it looks for this sheet, I
don't really know.

When executing the following line an error occurs and the program seems
to be looping continuously through the function.

The code is Sheets(Numsheets-1).copy Befo=Sheets(Numsheets-1)
'Where Numsheets = worksheets.count

Which is supposed to copy the last but one sheet and paste the new
sheet just before the last one, As I said this all worked fine until I
moved the original sheet.

I hope this makes sence and someone can help


--
RichP
------------------------------------------------------------------------
RichP's Profile: http://www.excelforum.com/member.php...o&userid=25267
View this thread: http://www.excelforum.com/showthread...hreadid=387620