Making Sheet all Upper Case

  • Thread starter Thread starter Junderwood57
  • Start date Start date
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!
 
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)
 
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
 
Back
Top