VBA Code to Converting text case Lowercase & Uppercase

 Sub Uppercase()

 For Each Cell In Selection 

If Not Cell.HasFormula 

Then Cell.Value = UCase(Cell.Value) 

End If Next Cell 

End Sub.

Sub Lowercase() 

For Each Cell In Selection

 If Not Cell.HasFormula 

Then Cell.Value = LCase(Cell.Value) 

End If Next Cell 

End Sub.