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

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


<(E-Mail Removed)> wrote in message
news:96712f12-ad74-47b5-918e-(E-Mail Removed)...
>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

On Mar 26, 4:16 pm, "Rick Rothstein \(MVP - VB\)"
<rick.newsNO.S...@NO.SPAMverizon.net> 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
>
> <dalejre...@gmail.com> wrote in message
>
> news:96712f12-ad74-47b5-918e-(E-Mail Removed)...
>
> >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!