Hi,

I would appreciate any help if I can use oldwords & newwords array
list as a defined range in another worksheet 'Temp'.
This way it would be flexible to change the values in sheet rather
than in code.
--------------------------------------
Sub ReplaceAll()
OldWords = Array("value1, value2,.........value(n)")
NewWords = Array("value1, value2,.........value(n)")

For i = LBound(OldWords) To UBound(OldWords)
Cells.Replace OldWords(i), NewWords(i)
Next i

End Sub
-------------------------------------

Thx.

Dim OldWords As Range
Dim NewWords As Range

Set OldWords = Range("A2:A14")
Set NewWords = Range("H5:H17")
For i = 1 To OldWords.Cells.Count

NewWords.Cells(i, 1).Copy OldWords.Cells(i, 1)
Next i

etc.

--
__________________________________
HTH

Bob

"Sinner" wrote in message
...
Hi,

I would appreciate any help if I can use oldwords & newwords array
list as a defined range in another worksheet 'Temp'.
This way it would be flexible to change the values in sheet rather
than in code.
--------------------------------------
Sub ReplaceAll()
OldWords = Array("value1, value2,.........value(n)")
NewWords = Array("value1, value2,.........value(n)")

For i = LBound(OldWords) To UBound(OldWords)
Cells.Replace OldWords(i), NewWords(i)
Next i

End Sub
-------------------------------------

Thx.

On Sep 17, 3:06*pm, "Bob Phillips" wrote:
Dim OldWords As Range
Dim NewWords As Range

* * Set OldWords = Range("A2:A14")
* * Set NewWords = Range("H5:H17")
* * For i = 1 To OldWords.Cells.Count

* * * * NewWords.Cells(i, 1).Copy OldWords.Cells(i, 1)
* * Next i

etc.

--
__________________________________
HTH

Bob

"Sinner" wrote in message

...



Hi,

I would appreciate any help if I can use oldwords & newwords array
list as a defined range in another worksheet 'Temp'.
This way it would be flexible to change the values in sheet rather
than in code.
--------------------------------------
Sub ReplaceAll()
OldWords = Array("value1, value2,.........value(n)")
NewWords = Array("value1, value2,.........value(n)")

For i = LBound(OldWords) To UBound(OldWords)
* Cells.Replace OldWords(i), NewWords(i)
Next i

End Sub
-------------------------------------

Thx.- Hide quoted text -

- Show quoted text -

Dear can't we define it as a dynamic name in sheet and use that name
in code instead of range??

Thx.