change marco dynamic range to setup range

[jaik22]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)


If Target.Cells.Count = 1 Then
    Target.Value = UCase(Target.Value)
End If
End Sub

I have this vba to change all lowercase to uppercase in the workbook. However, I would like to use this macro only on c12:c19 and
c21:33. Is there any way to change dynamic range to setup range?

Thank you!

 

[Joe4]

Try this:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    Dim myRange As Range
    
    Set myRange = Range("C12:C19, C21:C33")
    
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, myRange) Is Nothing Then
            Application.EnableEvents = False
            Target.Value = UCase(Target.Value)
            Application.EnableEvents = True
        End If
    End If

End Sub

Note: You usually want to use EnableEvents = False when making the change so that the change the code makes doesn't fire off another event and call itself. If you aren't careful, you can get yourself caught in an infinite loop sometimes!