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