Hi Want to save workbooks into archive when finished with i went through the
manual mode and would like to know, What do I have to change in this code so
it keeps the current file name etc greg.xls so on and so on.


ChDir "C:\idsc\archived"
ActiveWorkbook.SaveAs Filename:="C:\idsc\archived\Book1.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("G3").Select
End Sub
\

Thanks in advance

Greg