Verify Sheet exist before copying

[AmosA]

I am creating a workbook for work that will contain customer data. Each sheet will be named for the customer number. On my main page I have an ActiveX command button that runs the sub shown below. Once I click on the button it will ask me to input the customer number I want to create, then it makes the Starter Sheet visible, makes a copy of Starter Sheet it and renames it to the customer number that I entered and then hides the starter sheet.

It works well except for a little flaw. The flaw it has is if the sheet already exists then the code copies the starter sheet and renames it Starter Sheet(X). I need help with making the code. If sheet exist then prompt sheet exist but don't allow the sheet to be created.

The Starter Sheet is a formatted sheet that I plan to use each customer. It has code on the sheet that takes the sheet name an places it on a cell on said sheet.

I also would like to restrict the data being entered to 5 digits only (00001 - 99999)

Any help and suggestions would be greatly appreciated.

AmosA


Code I am using.

Please Login or Register  to view this content.

[Mumps1]

Try:

Please Login or Register  to view this content.