If cell.Text = UCase(cell.Text) Then
IF LEN(cell.text)=1 then
With cell
.Font.Bold = True
.Font.Color = vbBlue
.Font.Name = "Tahoma 27"
End With

else
With cell
.Font.Bold = True
.Font.Color = vbRed
.Font.Name = "Tahoma 12"
End With
end if
End If



" wrote:

On Sep 15, 3:29 pm, Patrick Molloy
wrote:
Sub colorCaps()
Dim cell As Range
For Each cell In Selection

If cell.Text = UCase(cell.Text) Then
With cell
.Font.Bold = True
.Font.Color = vbRed
.Font.Name = "Tahoma 12"
End With
End If

Next

End Sub



"Paul Black" wrote:
Hi everyone,

I have a list in column B.
There are many titles (Capitalized) followed by descriptions.
For the cells that are completely CAPITALIZED I would like to make the
colour red, the font Tahoma 12, and bold please.

Thanks in advance,
Paul- Hide quoted text -

- Show quoted text -

That's GREAT!, thanks Patrick.
One last thing please, I would also like the cells with a single
capital letter to be blue, 27 and bold.

Thanks in advance,
Paul