Making Sheet all Upper Case

J

Junderwood57

Within my sheet, there are cells with lower case and cells with upper and I
would like to convert all to UPPER case, could someone please let me know how
this is done?
THanks!
 
B

Bob Phillips

Sub MakeUpperCase()
Dim cell As Range

For Each cell in Activesheet.Usedrange.Cells

cell.Value = UCase(cell.Value)
Next cell
End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
M

Mike H

Maybe

Sub stantial()
For Each c In ActiveSheet.UsedRange
If Not c.HasFormula Then
c.Value = UCase(c.Value)
End If
Next
End Sub

Mike
 
Top