Hello hope somebody can help me out with this, driving me nuts. I´m
trying to rename specific cells (which start with the word "Cd" into
CDC Philly, but something is wrong here, pretty sure it´s the
identifier.

Sub TextChange()

Dim rng As Characters
Dim i As Double, counter As Double
Sheets("Retail Raw Data").Select
Set rng = Range("o2:o65000")
i = 1
Set rng = .Search("cd ", LookIn:=x1values)
If Not rng Is Nothing Then
Retail = rng.gildi
Do
rng.Value = "Empty"
Set rng = .FindNext(rng)
Loop While Not rng Is Nothing And rng.gildi Is Not "Empty"
End If
End With
For counter = 1 To rng.Rows.Count
If rng.Cells(i) = "Empty" Then
rng.Cells(i).FormulaR1C1 = "CDC Philly"
Else
i = i + 1
End If
Next
End Sub


--
jhkr
------------------------------------------------------------------------
jhkr's Profile: http://www.excelforum.com/member.php...o&userid=24665
View this thread: http://www.excelforum.com/showthread...hreadid=382413