VBA to 'Save As' not working

[Mel Smith]

I am trying include code to Save As .xlsm but it doesn't save a usable file. It saves the file as intended but not as Excel.xlsm or anything else. In fact the newly saved file cannot be opened...

The code I have used is:

Dim Fname As String
Fname = ActiveWorkbook.Name & Format(Date, "ddmmyy")
ActiveWorkbook.SaveAs "C:\Users\melsm\Documents" & Fname, 52

Is there anything missing from my code or is there another way to achieve what I'm trying to do?

Many thanks.

Mel

 

[Mel Smith]

Further to my previous post; I missed out Dim ReportDate As String. I have also realised that the unusable file is being save with a file extension .xlsm050118 whereas what I'm after is the file name (which is MRS Sorting Template to be saved as MRS Sorting Template 050118.xlsm (and tomorrow as ....060118.xlsm).

Mel