Saving 100 workbooks automatically

[insea]

Hello everybody!
I need your help.
I have in C:\Test\..., 100 workbooks (P1, P2, P3,....)
I would like to do a automatic change of the file name of this 100 workbooks
To do this I have a workbook with the 100 names (P1, P2, P3....) in column A and the column B is the name I want to change.
Example.:
Col A Col B

P1 Street 23

Thanks for your help
Insea

[TonyJollans]

For Each R In Range("A1:B100").Rows
Name "C:\Test\...\" & R.Cells(1) & ".xls" _
As "C:\Test\...\" & R.Cells(2) & ".xls"
Next

[insea]

Tony,
thanks a lot. It's works perfect
Congratulations to this site.

Regards
Insea