VBA Replace from Cells

[duration]

Hello,

I have a list of strings to find (what) and replace (replacement), in sheet 1 column A & B:

string to search | replace with
apple | green apple
pear | snow pear
grape | red grape

How can I configure the Replace function to use this sheet as the source for What and Replacement?

Something in the like of:

Replace What:=A2, Replacement:=B2, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False


Many thanks!