View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Patrick Molloy[_2_] Patrick Molloy[_2_] is offline
external usenet poster
 
Posts: 1,298
Default Colour Uppercase Letters

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