CHANGE CASE, For entire sheet?

  • Thread starter Thread starter Dustin
  • Start date Start date
D

Dustin

I have an existing sheet, full of text, (formatted as text) in which I
would like to convert all text to upper case.

I have played with using "UPPER" but have not been succesful. Any ideas?
(Besides doing a find replace for each letter of the alphabet? ;)

Thank you.
 
Try this

Sub Uppercase()
Dim selectie As Range
Dim cel As Range
On Error Resume Next
Set selectie = Range(ActiveCell.Address & "," & Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
If selectie Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cel In selectie
cel.Value = UCase(cel.Value)
Next cel
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
 
Back
Top