On Mar 26, 4:16 pm, "Rick Rothstein \(MVP -
VB\)"
wrote:
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
Wow.
That worked wonders.
Thanks, Rick!