Copying sheet stops if sheet name already exists

I have a workbook set up to keep a copy of every one of my purchase requisitions when i hit print. Everything works great except if the value of h51, which is the invoice number and what it names the new sheet is already used it pops an error and wants to debug. Is there a way to have it check for the same sheet name and add a number to the end of it to get by the error. Or any other suggestions would be helpful.

Thanks

Please Login or Register  to view this content.

Please edit your post by placing code tags at the very beginning of your code and again at the end.

Please Login or Register  to view this content.

Gives me run-time error '424'
Object required

Please Login or Register  to view this content.

PLEASE USE CODE TAGS! You agreed to use them when you signed up for the forum. If you are not sure how to use them, please access the FAQ's.

When you receive the error and click debug, what is highlighted?

Please upload a sample workbook.

purchase requisition blank - ASRev.xls

Notice in the attached how I ran it twice. The first time it created a new sheet named 123456. The second, because the same already existed, appended the new worksheet name to 123456z.

Hope this helps.