Routine #2 from our series of text subroutines to use in EXCEL to change the content of the selected cells to LOWER CASE.

Code snippet below:

Sub Lower_case() 'lower case
Dim selected_range As Range
Set selected_range = Range(Selection.Address)

Dim old_value As String
For Each cell In selected_range
    old_value = vbNullString: old_value = cell.Value
    cell.Value = LCase(old_value)
Next
End Sub

You can see how to add this to Excel in order to use the code in this thread UPPER CASE