Modify macro to save with current file name and date

[rockhunter]

I am placing a macro in excel to save a file to our network. It works but it always saves it as a fixed document name. I would like to modify it so I can use it in a blank template. I would like to have the macro save the file under what ever the current document name is with the date the file was saved.

Sub aSavetonetwork()
'
' a Macro
' auto save to network
'

'
    ChDir _
        "K:\OPERATIONS GEO\Backup of Cross Sections"
    ActiveWorkbook.SaveAs Filename:= _
        "K:\GEO\Backup of Cross Sections\test save macro.xltm" _
        , FileFormat:=xlOpenXMLTemplateMacroEnabled, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub