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
|