If you have this:
THIS TEXT IS UPPERCASE
in cell A1, then in B1 (or another empty cell, enter
=PROPER(A1)
This will convert the above to:
This text is uppercase
Then you can copy the new cells
Select the old cells and use
Edit>Paste Special>Values Rgds
Geoff
Vah! Denuone Latine loquebar? Me ineptum. Interdum modo elabitur
Sub ChangeToProper()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each c In ActiveSheet.UsedRange
c.Value = WorksheetFunction.Proper(c.Value)
Next c
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub Rgds
Geoff
Vah! Denuone Latine loquebar? Me ineptum. Interdum modo elabitur
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.