Moving Sheet from one Workbook to another multiple times.

Hey guys,

Having kind of a strange problem. Basically, what I am trying to do is copy a sheet from one workbook "Call Register" into another workbook" Call Register Archive", rename the sheet and save and close the archive then print the original sheet and erase all the data on the sheet in "Call Register". I have a code that is working perfectly on the first attempt (archive workbook only has (sheet1) in it). However, when I try to run the macro a second time (after a sheet has already been pasted) it freezes just after copying the sheet to the archive and doesn't complete the process of renaming the sheet and saving/closing the archive book.

Here is my code:

Please Login or Register  to view this content.

Like I said, it works perfectly as long as the "Call Register Archive" workbook hasn't already had a sheet moved into from the "Call Register". That kind of defeats the purpose of it being an arhive if it only works once. Any ideas? Also attached an example of my Call Register Workbook so you can see what I'm talking about. Just create a blank workbook in documents called "Call Register Archive".