Changing the sheet name to include the date

[rholdren]

Good morning, I am looking for a way to change the sheet name to include the date. I can get VB to rename the worksheet with the date or with the content but I can't make it do both.
for example: I have a sheet name TN_CUSTCARE. I can't seem to find a way to change the name to TN_CUSTCARE 010118 (or any date format)
I can get one or the other but not both. I have departments in four states that we track and I want to consolidate two years worth of data into one file. I could manually change them all but going forward we will be adding 2018 and beyond. I've got everything else working by VB including the importing of the files and the separation of the data but I cant get the code right to name the worksheet with both the name and date. Any help would be greatly appreciate. Thanks

 

[Gerald Higgins]

Can you post the code that you have working now for doing each bit separately ?

 

[rholdren]

I can use this to name the tab with the date
Sub Sheet_name()
Sheets.Add After:=ActiveSheet
MSToday = Format(Date, "DD-MM-YY")
ActiveSheet.Name = MSToday
End Sub

And I can do this to change the name to the content
Sheets.Add After:=Sheets("Tennessee")
ActiveSheet.Name = "TN_CUSTCARE"

I have tried a variety of combinations to get both to appear with no luck. I figured I wasn't going to make it work with a combination and have been searching for ways to make it work but I seem to only find one way or the other

 

[Fluff]

Try

ActiveSheet.Name = "TN_CUSTCARE " & Format(Date, "DD-MM-YY")

 

[rholdren]

I have really got to get some glasses. It's always the little things that are giving me grief. I was missing the &
Thank you for your help. I really do appreciate it.

 

[Fluff]

Glad to help & thanks for the feedback