Saving an XLSM to an XLSX

[Rscottq]

I have looked at many different solutions and I am learning as I go. The ONLY vba I've been able to make work so far to even save with the date stamp is what I've written below. BUT I cannot for the life of me figure out where to put/write in the effort to save the file as an XLSX. I only need the Macro on the master which is a "revolving file" in that each day I clear the contents after results have been entered. I'm sure there's an easier way to do all that too...but baby steps.

Sub SaveThisDay()

ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & "Learning-" & Format(Now, "yyyymmdd")

End Sub

I appreciate any assistance in advance.

Scott

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub SaveThisDay()
   Application.DisplayAlerts = False
   ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & "Learning-" & Format(Now, "yyyymmdd"), 51
   Application.DisplayAlerts = True
End Sub

 

[Rscottq]

Hi & welcome to MrExcel.
How about

Sub SaveThisDay()
   Application.DisplayAlerts = False
   ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & "Learning-" & Format(Now, "yyyymmdd"), 51
   Application.DisplayAlerts = True
End Sub

Amazing!! Now to go from my testing and learning workbook to a real product. Then go along and learn how to write in "clear contents" after the SaveAs. I think I'm gonna like hanging out and learning here!

 

[Fluff]

Glad to help & thanks for the feedback.