Single Letter Coloring with VBA: how to color the vowels

[itr674]

Anyone have any code for coloring a, e, i, o and u red when they appear in words on a sheet and color Y green/

 

[Scott Huish]

Sub ColorVowels()
Dim c As Range, d As Long
For Each c In ActiveSheet.UsedRange
    c.Font.Color = vbBlack
    For d = 1 To Len(c)
        Select Case LCase(Mid(c, d, 1))
        Case "a", "e", "i", "o", "u"
            c.Characters(d, 1).Font.Color = vbRed
        Case "y"
            c.Characters(d, 1).Font.Color = vbGreen
        End Select
    Next
Next
End Sub

 

[itr674]

HotPepper--perfect!! thanks a bunch...

 

[itr674]

I added this to each Case to bold the letters:

c.Characters(d, 1).Font.Bold = True

Is there a better way to do this?

 

[Scott Huish]

That's how you do it!

 

[itr674]

Alrighty then, thanks again, this works great.