Copy/Paste/Rename Tab

[delebre]

I am new to Excel macro creation, and I have looked around but have not quite found exactly what I am looking for. This is what I am trying to accomplish.

Create a Macro, I call it: ImprovedSheetCreateDated

I have 2 existing tabs:
Template Tab - Which has a sheet ready to take in my information
Date Range Tab - Has a list of date ranges for 2 years, in column A going down from A1-A24.

Basic Description:
This will copy the sheet 'Template' and then paste the copy as a new sheet. Then it copies A1 from 'Date Range' sheet, and renames the new copy of the Template tab with that A1 data. It also pastes A1 from 'Date Range' into A3 of the new sheet.

The Steps I am taking:
1). Copy the TEMPLATE tab
2). Paste the TEMPLATE Tab
3). In the 'Date Range Tab' copy data in A1.
4). Use the copied data from A1 in the 'Date Range Tab' to rename the newly created copy of 'Template'.
5). Paste the A1 data into cell A3, of the newly created copy of 'Template' tab.
6). Go back to the 'Date Range Tab' and delete A1. Column shifts up, with new data taking its place.

This is what I have so far:

Please Login or Register  to view this content.

The issue I have, is that it is stopping at the section: Sheets("Sheet3").Select

If I run this more than once, it can't 'FIND' Sheet 3, because it has previously been renamed, and the new sheet created in this process will be 'Sheet 4' etc.

Any help is very very welcome! Thank you in advance

[stnkynts]

Try:

Please Login or Register  to view this content.