Help Getting Date on Tab

[tandkb]

Hi,

I have a macro that puts data that is in a cell on the tab. Currently I turn the date into Week XX and currently names the tab of the current sheet Week XX. I know you can not put / on the tab. Is there anyway I can Create Week 45 11.3.19 on the tab? I need to replace the / in the date above with . in the cell that would go on the tab.

11/3/2019
Week 45 11.3.19

Is there anyway to automate the 11.3.19 to represent whatever the date is in the cell above it?

Thanks in advance for all your help!

Thomas Bass

 

[Fluff]

How about

    ActiveSheet.Name = "Week " & DatePart("ww", Range("A1")) & " " & Format(Range("A1"), "m.d.yy")

 

[tandkb]

That worked great except the week number is off one. This is how I normally find the week number.

=WEEKNUM(A3,21)) how would I correct it in your code?

Thanks so much!

 

[Fluff]

Try

DatePart("ww", Range("A1")[COLOR=#ff0000], vbMonday[/COLOR])

 

[tandkb]

Perfect! Thanks so much!! I really appreciate it!

 

[Fluff]

My pleasure & thanks for the feedback