change font from all capitals?

J

jumbiegirl

I have a spreadsheet from someone and it's all in CAPS. i want to change all
the font to lower case. Is there a way.
 
G

Gord Dibben

See help on LOWER Function.

Or maybe PROPER function.

Using functions you will need helper cells.

If you want a macro to change all in place use this one.

Sub Lower()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = LCase(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP
 
O

ozgrid.com

Sub ChangeToLowerCae()
Dim lCap As Long


For lCap = 65 To 90
ActiveSheet.UsedRange.Replace Chr(lCap), LCase(lCap)
Next lCap
End Sub
 
Top