Option Explicit
Sub RenameFiles()
Dim FileCount As Integer
Dim FilNam, NewNam As String
FileCount = 0
LoopHere:
FileCount = FileCount + 1
FilNam = FileCount & ".xls"
On Error GoTo Thend
Workbooks.Open FileName:=FilNam
' Change the Cell in A6 to the cell in your spreadsheet containing the co. address
' If you are not using Sheet1 as the sheet name change this to the name of your sheet
' in the numeric files. If these change then you will have to program that to possibly
' by picking up the activesheet name of the index(1) sheet repost if this is the case.
NewNam = FileCount & " " & Sheets("Sheet1").Range("A6").Value
ActiveWorkbook.SaveAs FileName:=NewNam, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
GoTo LoopHere
Thend:
End Sub