View Full Version : [SOLVED] color uppercase words

03-24-2018, 07:35 AM
Hi all,

i tried to do a macro that can color Camel Cases words like (UnderGround, FedEx) through all excel cells but i failed becasue i don't want to include text with space between the two words as shown below:


Simply, i want to look for all words that have two upper cases characters without space between them and color it like (MyComputer or AppleIphone)

and to skip words like (My Computer or Apple Iphone) because there is a space between the two words

is it possible to do??

thanks in advance


Cross-Posting: https://www.excelforum.com/excel-programming-vba-macros/1225319-color-uppercase-words.html#post4870363

03-24-2018, 02:14 PM
Solved by: xladept (https://www.excelforum.com/members/304929.html)

Sub Ethen()
Dim r As Long, S As String, i As Long, c As Long
For r = 1 To Range("A" & Rows.Count).End(xlUp).Row
S = Range("A" & r): S = Left(Range("A" & r), InStr(1, S, " ") - 1)
For i = 1 To Len(S)
If Mid(S, i, 1) = UCase(Mid(S, i, 1)) Then c = c + 1
Next if
If c > 1 Then
Range("A" & r).Characters(Start:=1, Length:=Len(S)).Font.ColorIndex = 44
c = 0: End If
Next r
End Sub