Změňte data ve sloupcích

Hey!
Snažím se změnit více než 1 sloupec s daty najednou.
Používám makro VBE, viz níže. Když jej použiji, označím prostor, který chci tímto způsobem označit ($D$2:$E$10, ale nezobrazuje se mi 2. vyskakovací okno, kam si zapisuji data, na která chci změnit.

Nejprve vytvořím 'Modul', do kterého umístím makro, je to tak?

Sub

MultiFindNReplace()

'Updateby Extendoffice

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



I hope you understand what i mean.



Regards

Benny