Problem with macro to copy then rename worksheets based on a list

[Ellen 2Excel]

Hello - this is my first post, so I hope I explain the issue clearly so someone can help me. I have a spreadsheet with two sheets (Sheet1=BaseDate) and (Sheet2=BaseTemplate). Sheet1 contains a list of user defined dates. I want to copy Sheet2 (BaseTemplate) for each named date in Sheet1, then rename these newly copied sheets according to the list defined on Sheet1. I am using an InputBox method for the user to identify the range in Sheet1. My macro runs fine and it is creating a new sheet for each name contained on Sheet1, but it is renaming them as BaseTemplate incrementally numbered. I am attaching my original spreadsheet, my spreadsheet after my code runs, and my VBA code. I'm not that experienced in VBA code and actually copied different macros until I got it do to what I wanted.

Original.xlsxAfter Macro.xlsx

Please Login or Register  to view this content.

[JBeaucaire]

Try it this way:

Please Login or Register  to view this content.