VBA - Code failing in Excel 97

[Guest]

The following code is failing when users run in excel 97 on the "Replace" item.

Can you help?

Thanks in advance,

Scott

'----------------------------------------------------
'Remove unneeded text in column G
'----------------------------------------------------
Range("G2:G2000").Select
Dim Keywords As Variant
Dim Rng As Range
Dim Ndx As Long
Keywords = Array("Q Line ", "120 VAC ", "- Breaker ", " Standard")
For Each Rng In Selection.Cells
For Ndx = LBound(Keywords) To UBound(Keywords)
Rng.Value = Replace(Rng.Text, Keywords(Ndx), "")
Next Ndx
Next Rng

 

[Doug Glancy]

Scott,

Off the top of my head, I think it's "Substitute" in 97.

hth,

Doug

 

[Dave Peterson]

Replace was added in xl2k.

In xl97, you could use application.substitute().