color uppercase words

[Ethen5155]

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:

21907


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

Ethen



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

[Ethen5155]

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