Changing multiple cell text from lower case to upper case

[Patti]

Is there a way to change multiple cells from lower case to upper case? I
figured out how to format one cell at a time, but not multiple.

 

[JP]

Just use the UPPER() function in cell to the right and fill down as
needed.

For example if you are doing this in column B, type =UPPER(A1) in cell
B1, then click the fill handle to complete the sequence.


Check out http://www.bettersolutions.com/excel/EZC101/LT423111411.htm
for visual aid.


HTH,
JP

 

[Gord Dibben]

Would you be up for a macro?

Sub Upper_Case()
'David McRitchie, programming, 2003-03-07
Dim rng1 As Range, rng2 As Range, bigrange As Range
Dim Cell As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next
Set rng1 = Intersect(Selection, _
Selection.SpecialCells(xlCellTypeConstants))
Set rng2 = Intersect(Selection, _
Selection.SpecialCells(xlCellTypeFormulas))
On Error GoTo 0
If rng1 Is Nothing Then
Set bigrange = rng2
ElseIf rng2 Is Nothing Then
Set bigrange = rng1
Else
Set bigrange = Union(rng1, rng2)
End If
If bigrange Is Nothing Then
MsgBox "All cells in range are EMPTY"
GoTo done
End If
For Each Cell In bigrange
Cell.Formula = UCase(Cell.Formula)
Next Cell
done:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP