Excel VBA


Convert capital letters into small letters

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 Dim rng As Range
 Set rng = Range("A1:C10")
 If Intersect(Target, rng) Is Nothing Then Exit Sub
 Target.Value = UCase(Target)
End Sub


Alternative

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 If Target.Address <> "$A$1" Then Exit Sub
 Target.Value = UCase(Target)
End Sub