First character in string to lower case

Brief description:

Changes first character in strings within selected range to lower case.

Full description:

Changes first character in strings within selected range to lower case.

No ‘undo’ after this is run.

Use: Select the range and run the macro.

Purpose: This can be useful when data has undesired capitalization.

Code:

Sub ChangeFirstCharacterToLower()

    Dim CRange As Range, CurrCell As Range
    Dim StrLen As Long
    
    Set CRange = Selection

    
    'For each cell in the selected range, replace the first character in
    '   the string with the lower case version
    For Each CurrCell In CRange
        If CurrCell <> "" Then
            StrLen = Len(CurrCell) - 1
            CurrCell = LCase(Mid(CurrCell, 1, 1)) & Mid(CurrCell, 2, StrLen)
        End If
    Next CurrCell
End Sub