Button to save the template workbook to a default directory

[JayDii]

Hi all!
This has probably been posted and answered before. I found some similar questions and good answers, but I couln't figure out how to make this work...

I have an excel template that I use once a week, for processes and so on... Anyway I'll "save as" the template in the same directory every week and the name as that current date.
The directory is under a tree with many many braches... Therefore I would like to create a button on the template that automates this, saving in that directory and as the current date...

Can anyone show me a VB-script that can do this for an excel template?

 

[Datsmart]

This will create/over-write a copy as a new file within the listed filename and path.
Original WorkBook will remain active.

        WBName = "MyTemplate.xlt"
        Dpth = "C:\groups\SDO\NSDG\KS-CL\Analytics\CX"
        pth = Dpth & "\" & WBName
        ActiveWorkbook.SaveCopyAs Filename:=pth

 

[JayDii]

Thanks! It works great!