Renaming File
 

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....

Renaming File
 

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" wrote in message
...
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....