How to Use VBA UCase Function

VBA UCase Function

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Z As Long

    Dim xVal As String

    On Error Resume Next

    If Intersect(Target, Range("C8:C100")) Is Nothing Then Exit Sub

    Application.EnableEvents = False

    For Z = 1 To Target.Count

        If Target(Z).Value > 0 Then

            Target(Z).Value = UCase(Target(Z).Value)

        End If

    Next

    Application.EnableEvents = True

End Sub