Enforcing Upper case

[Shytott]

Hi
Im using the code below to enforce user input to be in upper case.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A1:A20")) Is Nothing Then
        Application.EnableEvents = False
        With Target
            .Value = UCase(.Value)
        End With
        Application.EnableEvents = True
    End If
End Sub

This works fine for Col A - or indeed over multiple cols using Target Range (“A1:G20”)) etc.

My issue now is, Id like to have the upper case enforcement on specified cols, eg ONLY cols A, F, L, R , W. All other input into the intervening cols is to be standard Upper/lower case.

Can anyone suggest a way this might be done?

Many Thanks