Excel Add Text in Cell with already existing text

[Ago]

wait!
i just noticed it will add a space in the begining of each cell and osme other problems :-)
this should delete the problem with the space.

[vba]
Sub test()
txt = ActiveCell.Value
x = Split(txt, " ")
j = 0

For i = 0 To UBound(x)
If x(i) = "On" And x(i + 1) = "HOLD" Then
ActiveCell.Value = ""
While j < i
If j = 0 Then
ActiveCell.Value = x(j)
Else
ActiveCell.Value = ActiveCell.Value & " " & x(j)
End If
j = j + 1

Wend
i = UBound(x)
End If
Next i
End Sub




[/vba]