Making Sheet all Upper Case

[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!

 

[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)

 

[Bob I]

See here,
http://www.cpearson.com/excel/ChangingCase.aspx

 

[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