Worksheet name w/nonvolitile date

[drayneal]

Hello gurus, I need VBA help. I've searched the forums but found nothing specific to worksheet names. I have a workbook that creates an inventory catalog based on the date. The user wants the date name on the workbook sheet tab, which I have done. However it changes each time its opened. Can the code be made non-volitile. I'm a novice so go easy. There's a lot more code but this is the relevant part.

Sub DateSheet()
Dim TB As Worksheet
Dim dt As String
dt = Format(Date, "mmm-dd-yyyy")
Set TB = ActiveSheet
TB.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = CStr(dt) & " Stock Cat Alpha"
End Sub

 

[Joe4]

However it changes each time its opened.

It shouldn't, unless you call the macro each time the workbook is opened.

It is hard to say how you should structure everything, since we don't really know all that is supposed to happen every single time the sheet is opened. Maybe you need to split your macro into two parts, one that is only run one-time, and one that gets runs every time the workbook is opened.

If you provide more detail regarding what is supposed to happen each time (and all that your code does), we can probably help you sort those details out.

 

[drayneal]

Aaargh.. your're right. While working on the rest of the code I'm inadvertently rerunning the macro. thx Joe4. Told u I was a newbie.

 

[Joe4]

Aaargh.. your're right. While working on the rest of the code I'm inadvertently rerunning the macro. thx Joe4. Told u I was a newbie.

No worries, we have all been there!