Automaticly naming file tabs

I keep re-creating tabs and rename them to the date I created them, up to 26/year. I used a =cell("Filename") formula from another thread that pulls the tab name and combines it with the file location. I also found a thread that re-creates a PO tab by double clicking on a cell. I thought that could work but if it could name the tab with the date, that would be complete. Unfortunately I do not have a file with me to load. I'm not good with VB but can do nested IF formulas.

Thoughts and suggestions? Thanks.

Can you upload and example file

Are you creating Tabs of a Template

Template?? If you mean making a coping from a previous dated tab, then yes. And the new tab is what I am looking to name with the current date. I'm going to fool around with RB's code and see if I can get it to work.

Thanks.

What is your Template Sheet Called

The previous date. Any date. Once every 2 weeks I need to re-create the previous dated tab.

Hi this should put you on the right path, most of the code was written by Leith Ross have a look.

the SHEET LIST Tab records all the dates and is used to see if the date has been used before.

Hope it helps you out

Book2.xls

This is good but not what I had in mind. I will play around with all of this for a few days, figure some stuff out and report back. Thanks for the help.

Looking forward to posting additional questions and troubleshooting with more advanced Excel users.

Attached is a basic file that has some info that my be of more help.

this should put you in the right direction.

this will create a new workbook and name it with your date

Sub SaveSheet()
    ActiveSheet.Copy
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs "" & Format(Range("D3"), "mm-d-yyyy")
End Sub

Close, so close. I think my lack of VBA experience is the real hold up here. I was able to insert the macro, attach it to a button, but then I get a DEBUG popup and a new window file opens up with the correct dated tab. I was hoping to get the new dated tab into the current file.

Thanks

Hi,

Would this help you ..

Sub Button1_Click()


Application.ScreenUpdating = False

    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy After:=Sheets(2)
    Sheets("Sheet1 (2)").Select
    Sheets("Sheet1 (2)").Name = Replace(Date, "/", "_")
    With ActiveSheet
    Randomize
    .Tab.Color = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End With
    Sheets("Sheet1").Select


Application.ScreenUpdating = True


End Sub

The above code would copy sheet1 and create a new tab with the date and change the color of the tab at random. all you would have to do is attach the code to a button and change the sheet name to what you need.

Hope this helps..