Renaming excel files

[OfficeUser]

Is it possible to write a macro that will open an excel file and then rename that file using the contents of a given cell? I am looking to do this with a lot of files.

For instance in opens a file called 12345.xls and in cell A2 it says Pumpkin Pie, the files is then saved as 'Pumpkin Pie.xls'

Even if it could be saved as another file.

Thanks.

 

[Dartagnan]

This might help

http://www.mrexcel.com/articles/filename-derived-from-a-cell.php

 

[OfficeUser]

I have this to do part of the task. I just need to figure out how to open, run this macro, and close each workbook in a folder.

Sub SaveAsCell()
Dim strName As String
On Error GoTo InvalidName
strName = Sheet1.Range("A1")
ActiveWorkbook.SaveAs Filename:="C:\RenamedFiles\" & strName
Exit Sub
InvalidName: MsgBox "Unable to rename"
End Sub