Lowercase to uppercase

[Guest]

Can I change a worksheet with all lowercase to uppercase?

 

[papou]

Hello Deborah
How about a little macro to do this?
Sub ChangeIntoUpper()
For Each c In ActiveSheet.UsedRange
c.Value = UCase(c.Value)
Next c
End Sub

HTH
Cordially
Pascal

 

[Guest]

workingwoman

You could try upper(). This could be kind of a pain as you would have to
mirror the document. The macro, if works(I don't do VBA), is probably better.

God Bless

Frank Pytel

 

[Gord Dibben]

I would alter this macro as such.

Sub ChangeIntoUpper()
For Each c In ActiveSheet.UsedRange
c.Formula = UCase(c.Formula)
Next c
End Sub

Otherwise, if there are any formulas in the range, they would be changed to
values only.


Gord Dibben MS Excel MVP