Copy Template Worksheet And Rename With Custom Name

**bakerman** · 06-07-2013, 03:03 PM

Change these lines

Code:

Sheets(SheetToCopy).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NameTest

to this

Code:

Sheets(SheetToCopy).Copy After:=ActiveSheet
ActiveSheet.Name = NameTest

About the sharing-unsharing
You could incorperate this in your code to perform this task automated, but then you should be shure you are the only user at that time otherwise it could get nasty.

**peter renton** · 06-07-2013, 03:50 PM

Once again

Thank you, its spot on

I think you are correct if its prone to failure to allow shared adding of sheets i will leave it as it is

Thank you very much for helping me with this

Peter