try changing this to suit your needs. Place in the ThisWorkbook module by
right click the excel icon just to the left of file on the bar.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
With Sheets("sheet25")
mlr = .Cells(Rows.Count, "b").End(xlUp).Row + 1
Cells(mlr, "b") = ActiveWorkbook.Name
End With
End Sub

--
Don Guillett
SalesAid Software

"Robert Adams, from Argentina" <Robert Adams, from
wrote in message
...
I always work a lot with the same file. Excel and Word. Its possible to put
a
option that every time I save the file it includes a information about the
file. It can be version, date, etc.

Example

I haves this file = cashflow.xls or .doc

I want with and option to put information on the file that I save =

cashflow-01.xls

and so on

cashflow-01.xls
cashflow-02.xls
cashflow-03.xls
cashflow-03.xls

Another Example

I haves this file = cashflow.xls

Every time I save the file I what to put info Example "date and version"

cashflow-30-06-06-ver-1.xls
cashflow-30-06-06-ver-2.xls
cashflow-30-06-06-ver-3.xls
cashflow-30-06-06-ver-4.xls