Change case

ZOE

New Member
Joined
Oct 17, 2002
Messages
2
How can I change the font case easily from lower to upper?
Thanks in advance
 

Excel Facts

Who is Mr Spreadsheet?
Author John Walkenbach was Mr Spreadsheet until his retirement in June 2019.

ZOE

New Member
Joined
Oct 17, 2002
Messages
2
Thank you. I downloaded ASAP utilities as you suggested but still can't find how to change the case easily, alathough that was one of the features listed.
???
 

Aladin Akyurek

MrExcel MVP
Joined
Feb 14, 2002
Messages
85,209
On 2002-10-18 13:43, ZOE wrote:
Thank you. I downloaded ASAP utilities as you suggested but still can't find how to change the case easily, alathough that was one of the features listed.
???

Select the target range first then activate the relevant option of the utilities.
 

JohnG

Board Regular
Joined
Feb 18, 2002
Messages
165

ADVERTISEMENT

I have an Add-In which is the same as the Change case in Word if you give me your email address.
 

Paul B

Well-known Member
Joined
Feb 15, 2002
Messages
575
Or using a marco

Sub UPPER_CASE()
'select the range you want to change
'and run this maroc
Application.ScreenUpdating = False
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
Application.ScreenUpdating = True
End Sub
 

Joe Was

MrExcel MVP
Joined
Feb 19, 2002
Messages
7,539
Here are three ways of doing it:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
Dim rng As Range
'Make all to be entered text Caps.
'Load from ThisWorkBook Module.
With Application
.EnableEvents = False
For Each rng In Source
rng.Value = UCase(rng.Value)
Next
.EnableEvents = True
End With
End Sub

Sub MakeUpper()
'Change the Range below to the working Range to use!
'Sheet module code.
'Work on a range only.
For Each c In Worksheets("Sheet1").Range("A3:AA3")
c.Value = UCase(c.Value)
Next c
End Sub

Sub MakeSelectUC()
'Sheet module code.
'Work on a selection only.
For Each c In ActiveCell.CurrentRegion.Cells
Selection.Value = UCase(c.Value)
Next c
End Sub
 

Forum statistics

Threads
1,148,280
Messages
5,745,829
Members
423,981
Latest member
ph1l

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top