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