Excel Macros For Making Text In Cells Upper, Lower and Proper Case

Proper Upper Lower Case Excel Macro

'Code for Upper Case

Sub UpperCase()
Dim objCell As Object
For Each objCell In Selection
objCell.Value = UCase(objCell.Formula)
Next
End Sub

'Code for Lower Case

Sub LowerCase()
Dim objCell As Object
For Each objCell In Selection
objCell.Value = LCase(objCell.Formula)
Next
End Sub

'Code for Proper Case

Sub ProperCase()
Dim objCell As Object
For Each objCell In Selection
objCell.Value = Application.Proper(objCell.Formula)
Next
End Sub