Renaming File

[Arjun Dutta]

Hi please help me out on this...
Everytime i save the file, the file name should be changed to test1.xls;
second time i open & save the file, the name changes to Test2.xls & so on....

[Bob Phillips]

Put a _ before the number, like Test_2, and then use

With ActiveWorkbook
iPos = InStr(.Name, "_")
iFile = Mid(.Name, iPos + 1, InStr(.Name, ".") - iPos - 1)
.SaveAs Left(.Name, iPos) & (iFile + 1) & ".xls"
End With


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Arjun Dutta" <[email protected]> wrote in message
news:[email protected]...
> Hi please help me out on this...
> Everytime i save the file, the file name should be changed to test1.xls;
> second time i open & save the file, the name changes to Test2.xls & so
on....