How can I format the cells to capitalize ALL letters in a word?
 

How can I format the cells to capitalize ALL letters in a word?
 

You can't do that with formatting. There are two ways to do what
you want. The first is to use a formula in another column. Enter
the formula =UPPER(A1) in the first cell of the new column and
copy down as far as you need to go, then copy those values and do
a Paste Special Values over the original data. The second way is
to use VBA code, something like the following:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Range("A1:A10"), Target) Is Nothing
Then
If Target.HasFormula = False And Target.Cells.Count = 1 Then
Target.Value = UCase(Target.Value)
End If
End If
Application.EnableEvents = True
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"lgb542" wrote in message
...