Replace VBA from main file for all other excel files

[HoaNguyen]

Sub MF_Replace()
Dim i As Long, Clls As Range, Ws As String, Sh As Worksheet
Application.ScreenUpdating = False
With Application.FileDialog(1)
.AllowMultiSelect = True: .Show
For i = 1 To .SelectedItems.Count
Ws = Replace(.SelectedItems(i), .InitialFileName, "")
If ThisWorkbook.Name <> Ws Then
Workbooks.Open .SelectedItems(i)
For Each Clls In ThisWorkbook.ActiveSheet.[A1].CurrentRegion.Resize(, 1)
Windows(Ws).Activate
For Each Sh In ActiveWorkbook.Worksheets
Sh.Cells.Replace Clls, Clls.Offset(, 1), LookAt:=xlWhole
Next Sh
Next Clls
Windows(Ws).Close True
End If
Next i
End With
Application.ScreenUpdating = True
MsgBox "Done"
End Sub

 

[HoaNguyen]

I have a table of data: Column A is the data to be replaced, Column B is the data to be replaced. Now I want to run the Data table replacing the words in Column A with Column B for all the Excel copies I select. In the above Code, I can only replace 1 time, and cannot replace a number of characters. Hope you guys can help me