Try this.


Private Sub CommandButton1_Click()

tmpName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 10)

Select Case Month(Now())
Case 1
tmpMonth = "Jan "
Case 2
tmpMonth = "Feb "
Case 3
tmpMonth = "Mar "
End Select

tmpYear = Right(Year(Now()), 2)

ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\Desktop\" _
& tmpName & tmpMonth & tmpYear, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub




Michael Tomasura
"Ronbo" wrote in message
...
I save files "name +date" such as. "dell may 03" date
always has the last six spaces . i.e. next month will
be "dell jun 03"

I am looking for a macro that after completing procedures
in a workbook would open the "Save As" dialog box and 1.
remove the previous date 2. save the file as "name + new
date" The update is always done in the month of the file
date.

Any help would be very much appreciated.