try this
Start a new file, in column A, list the names of the files you want to act on, including the .xls extension
In column b, list the current name, with the corresponding replacement in column c.
Run this macro
Sub Macro1()
‘
‘ Macro1 Macro
‘ Macro recorded 13/01/2011 by User
‘
‘
Dim pip(100) As String
Dim pop(100) As String
Dim pap(100) As String
Dim counter As Integer
Dim filecounter As Integer
For filecounter = 1 To 2
pip(filecounter) = Cells(filecounter, 1).Value
For counter = 1 To 3
pop(counter) = Cells(counter, 2).Value
pap(counter) = Cells(counter, 3).Value
Next counter
Workbooks.Open Filename:=pip(filecounter)
Cells.Select
For counter = 1 To 3
Selection.Replace What:=pop(counter), Replacement:=pap(counter), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next counter
ActiveWorkbook.Save
ActiveWorkbook.Close
Next filecounter
End Sub
this assumes all files are in the same folder, including the fiel with the references and macro. It also assume you are only using one sheet and that the files open on that sheet