Need VB code

[bamaisgreat]

Does anyone no the code for saving a xls sheet to what it currently is already named plus some additional code.

 

[VoG]

Give an example.

 

[bamaisgreat]

sorry about that. I currently save it as the date and time, I would like to add something to that like a name +date and time

 

[VoG]

Something like this?

Dim s As String
s = Left(ActiveSheet.Name, InStr(ActiveSheet.Name, ".") - 1)
ActiveSheet.SaveAs Filename:=s & Format(Now, "yy-mm-dd-hh-mm-ss") & ".xls"