Uppercase in non adjacent columns

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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".
 
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.
 
Back
Top