Save Macro Help

[sqex]

Public Sub Save()
ThisFile = Range("G4").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

Im trying to get this macro to save a spreadsheet under the name of the value that is in g4, in G4 however is a formula that calculates the date "=today()" and when i implement the macro i get a error stating it wont save. if anyone has any ideas id be most greatfull.

 

[Norie]

This is probably because of the / in the date.

You need to format the date to remove them.

Public Sub Save() 
ThisFile = Format(Range("G4").Value , "ddmmmyyyy")
ActiveWorkbook.SaveAs Filename:=ThisFile 
End Sub

ActiveWorkbook.SaveAs Filename:=Format(Date , "ddmmmyyyy")

 

[sqex]

that worked great thank you very much