How do I create a macro the capitalizes an entire excel sheet?

  • Thread starter Thread starter Poohberry
  • Start date Start date
P

Poohberry

I have to import data regularly and then capitalize it. How do I create a
macro the capitalizes an entire excel sheet?
 
Sub capall()
For Each r In ActiveSheet.UsedRange
r.Value = UCase(r.Value)
Next
End Sub
 
One way
without a macro

Assuming your text is in sheet1

Start with a new blank sheet
enter =upper(sheet1!A1) in A1 and extend it accross and down as far as you
need to.
 
And another way that ensures formula aren't turned into values

Sub capall()
For Each r In ActiveSheet.UsedRange
r.Formula = UCase(r.Formula)
Next
End Sub

Mike
 
Back
Top