VBA Code to convert Capital Letters to Small Letters in Excel

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