View Single Post
 
Old 08-24-2018, 09:24 AM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default

Perhaps something along the lines of
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If target.column = 5 Then
    For Each cel In target
        cel.value = LCase(cel.value)
    Next cel
End If
End Sub
Reply With Quote