#1
|
|||
|
|||
Formatting cells to display UpperCase
Is there a way to format cells so that no matter what case is entered it will display in upper case?
|
#2
|
|||
|
|||
Code:
#1: Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range If Intersect(Target, [C8:D30]) Is Nothing Then Exit Sub Application.EnableEvents = False For Each cell In Intersect(Target, [C8:D30]) cell = UCase(cell) Next Application.EnableEvents = True End Sub #2: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range On Error Resume Next Set Target = Range("C8:D30") Application.EnableEvents = False For Each cell In Target cell = UCase(cell) Next Application.EnableEvents = True End Sub |
#3
|
|||
|
|||
Thank you.
|
#4
|
|||
|
|||
You are welcome.
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Master slides and uppercase formatting? | gagner | PowerPoint | 1 | 01-15-2015 12:03 PM |
Display cells dependent on option buttons | inq80 | Excel | 0 | 09-01-2014 03:40 PM |
How to set a no-display value to cells with a no-value link | KIM SOLIS | Excel | 3 | 10-31-2011 11:37 PM |
STOP display of formatting commands | richopp | Word | 2 | 10-14-2010 05:14 PM |
Display the cells which add up to a certain sum | edbyford | Excel | 1 | 11-26-2009 01:30 PM |