saving file in a macro

How do I save the spreadsheet with the current name of the spreadsheet in a macro?

Example:
I want to save the spreadsheet to a network drive using the current name of the spreadsheet (it changes every other day). But I dont know to put the name in the SAVE statement. Here is what I have now:

ActiveWorkbook.SaveAs Filename:="X:\DPR master.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

So it always saves as "DPR master". I need it to replace this with the current name of the spreadsheet.

Thanks