Sub wordReplace()
Application.Visible = False
Dim fpath As String, fname As String, sht As Workbook
fpath = "d:\t\"
fname = Dir(fpath & "*.xls?")
Do While fname <> " "
Set sht = Workbooks.Open(fpath & fname)
With sht
Cells.Replace What:="1", Replacement:="2"
.Save
.Close
End With
fname = Dir
Loop
Application.Visible = True
End Sub