Right click the Sheet's Tab, View Code
Paste the following
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range, c As Range
Set MyRange = Intersect(Target, Range("C5:C33, P5:P33"))
If Not MyRange Is Nothing Then
Application.EnableEvents = False
For Each c In MyRange
c.Value = UCase(c.Value)
Application.EnableEvents = True
Thanky ou Asala 42 and Trevor G, I am not sure how I could get the results I am looking for. Do I place the formula in each cells?
Jonmo1, I tried your code, but it does not work. I placed your code as you suggested, but I still get lower case. Also I noticed that you identified the range as C3:C33, no, the range is C3:N33, and of course, all the cells inbetween.
The UPPER formula is intended for an adhoc kind of thing.
In a range off to the right of your data range, you can write a formula similar to =UPPER(P2), copy it down, then copy/paste special/Values over the original column (basically overwriting the original entries with an uppercase version).
Given the number of columns, it probably won't take that long - but it is a manual process. Code can be used to automate the process, as Jonmo is doing.