On Sep 15, 4:08*pm, Patrick Molloy
wrote:
* * * * *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- Hide quoted text -

- Show quoted text -

Brilliant Patrick, works a treat, thanks very much.

Kind Regards,
Paul