Uppercase in non adjacent columns

[Jock]

I have the following code which will force upper case in column "C":

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Not Application.Intersect(Target, Range("C9:C47")) Is Nothing Then
' Target(1).Value = UCase(Target(1).Value)
Target(1).Value = StrConv(Target(1).Value, vbUpperCase)
End If
Application.EnableEvents = True

End Sub

I would like to adapt this code to work in non-adjacent columns; ie columns
"A" and "C".

 

[Gary''s Student]

replace
Range("C9:C47")
with
Union(Range("C9:C47"),Range("A9:A47"))

 

[Jock]

Great stuff, thanks very much!

Jock

replace
Range("C9:C47")
with
Union(Range("C9:C47"),Range("A9:A47"))

 

[Dave Peterson]

Another option:

If Not Application.Intersect(Target, Me.Range("a9:a47,C9:C47")) Is Nothing Then

The me keyword refers to the object holding the code--in this case, it's that
worksheet.