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".
--
tia

Jock