Help with more than one - .Replace What:="abc123", Replacement:="2468"

[my8950]

Sub Replace_Word()
Range("B3:D8").Replace What:="Cable", Replacement:="TV"
End Sub

I am trying to work with VBA to make a tool that will replace a specific term with another term.
There are about 100 to search and replace, all of which reside in A1 through XFD1.
I would prefer to keep each of the Replace What in the VBA code, and all of the Replacement in the VBA code rather than an outside file to reference.
The example above is a good one and makes sense to me, but I wonder if there is a way that I can put all of the terms I need to find in the “Replace What”, same for “Replacement”.
I’m sure I can do each term with a copy of the above and it would work, but I feel there is a more efficient way to do this.

Entry level here, so my skills and understanding of VBA code are minimal.
Thank you!

 

[DanteAmor]

Hi @my8950 . Thanks for posting on the forum.

Try this:

In A1 onwards the "Replace What" and in the row below, that is to say, from A2 onwards the "Replacement"

Sub Replace_Word()
  Dim c As Range
  For Each c In Range("A1", Cells(1, Columns.Count).End(1))
    Range("B3:D8").Replace c.Value, c.Offset(1)
  Next
End Sub

Example:

Dante Amor
	A	B	C
1	Cable	abc123	x
2	TV	2468	y
Hoja1

--------------
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
--------------