VBA to Find and Replace Text from a cell

[borkarrr]

Hello friends i have a sheet as below-

In Sheet 1

Column A Column B
Company Name Example Inc.
Games Football and Swimming

In Sheet 2
I have a sheet having thousands of sentences in Column A
Eg- ABC Inc is a very big company. ABC Inc hires many employees who while their time away playing games in office...

What i want to Do-

Replace - " ABC Inc" by "Example" Inc
Replace - "Games" - by the "Football and Swimming"

So the sentence should look like this after using the macro
Example Inc is a very big company. Example Inc hires many employees who while their time away playing Football and Swimming in office...


Might as well - just use find and replace function??-

Yes i would- but find and replace function needs me to actually type the stuff i want to find and replace

i have just given an example above
-in reality there are many parameters (like 25-30?) that i need to change besides company name and the games they play

is there any way (by VBA) i could get the contents which are in green cell to somehow magically get themselves typed into find and replace function

Thanks in advance

 

[Fluff]

How about

Sub ReplaceLst()
   Dim Ary As Variant
   Dim i As Long
   
   With Sheets("Sheet1")
      Ary = .Range("A2", .Range("B" & Rows.count).End(xlUp))
   End With
   With Sheets("Sheet2")
      For i = 1 To UBound(Ary)
         .Range("A:A").Replace Ary(i, 1), Ary(i, 2), xlPart, , False, , False, False
      Next i
   End With
End Sub