البحث المجمع عن محتويات الخلايا بالضبط واستبدالها

لقد وجدت VBA أدناه على هذا الموقع. كيف سأجعله يبحث فقط عن محتويات الخلية الدقيقة ثم يستبدل هذه المحتويات؟
شكر

Sub

MultiFindNReplace()

'Update 20140722

Dim

Rng 

As

Range

Dim

InputRng 

As

Range, ReplaceRng 

As

Range

xTitleId = 

"KutoolsforExcel"

Set

InputRng = Application.Selection

Set

InputRng = Application.InputBox(

"Original Range "

, xTitleId, InputRng.Address, Type:=8)

Set

ReplaceRng = Application.InputBox(

"Replace Range :"

, xTitleId, Type:=8)

Application.ScreenUpdating = 

False

For

Each

Rng 

In

ReplaceRng.Columns(1).Cells

InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value

Next

Application.ScreenUpdating = 

True

End

Sub