Automatically Show UPPER Case Text In Cells
If you want to make sure that text entries in lower case — even alphanumeric entries — will automatically be displayed in UPPER case as soon as the entry is made, here’s how to do it.
Let’s say you want range A1:A10 to always show upper case letters.
For example, in cell A2 you enter Hello the cell will show HELLO.
If you enter 123abc456def into cell A8 the cell will show 123ABC456DEF.
By the way, these native fonts will show character letters in upper case if you want to avoid VBA:
Algerian
Castellar
Engravers MT
Felix Titling
Goudy Stout
Perpetua Titling MT
Showcard Gothic
Stencil
Personally, I’m not too crazy about any of those fonts but if one of them is acceptable to you, so much the better. Otherwise, the below Worksheet_Change event will do the job for range A1:A10.
To install this code, right-click your sheet tab, left-click to select View Code
, and paste this code into the large white area that is the worksheet module. Press Alt+Q
to return to your worksheet.
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Intersect(Target, Range("A1:A10")) Is Nothing _ Or .Cells.Count > 1 Then Exit Sub Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End With End Sub
Leave a Reply