how multiple rename in one excel file

[niksirat2030]

hi everyone,

i have one excel file, i want rename several word or number with another, for example:

6037991816468777 --> jack
6037991845127846 --> john
.
.
.
how can i do it?

thanks in advance.

 

[WarPigl3t]

Sub myRenameMacro()
     myFrom = InputBox("What do you want to rename?")
     myTo = InputBox("What do you want to rename it to?")
     For Each cel in Worksheets
          If cel.Value = myFrom Then
               cel.Value = myTo
          End If
     Next cel
End Sub

 

[niksirat2030]

Sub myRenameMacro()
     myFrom = InputBox("What do you want to rename?")
     myTo = InputBox("What do you want to rename it to?")
     For Each cel in Worksheets
          If cel.Value = myFrom Then
               cel.Value = myTo
          End If
     Next cel
End Sub

thanks for your answer, but how can i use this code?

for example , i have 2 txt file, Input.txt and Output.txt and i want replace each line of input.txt with same line

of Output.txt.

 

[WarPigl3t]

This code will not work for you as I thought you wanted to change values of a sheet not a text file.