Something like this should work...

Sub RecolorText()
Dim X As Long
Dim C As Range
For Each C In Worksheets("Sheet1").Range("A1:F1")
If Len(C.Value) 0 Then
For X = 1 To Len(C.Value)
If C.Cells.Characters(X, 1).Font.Color = vbBlue Then
C.Cells.Characters(X, 1).Font.Color = vbGreen
End If
Next
End If
Next
End Sub

Just change the worksheet and range in the For Each statement to what you
need.

Rick


wrote in message
...
I have cells with titles in which some words are black, others are
red/
struck through, and other words are blue.

For every cell that has blue words, I want to convert those words to
green. All other words in the string should remain, as is.

Any ideas? I tried this conditional formatting:

Cell Value is EQUAL TO = "vbBlue" [format..] then I clicked a green
color.

Thanks!
Dan