Ucase advice for two ranges on same worksheet

[ipbr21054]

Hi,
I am using the code below which works fine.
It currently changes the text to Upper Case for the range A1:A38

On the same worksheet i also want to use the same code for S4:S38

What i DONT want to do is just change the existing to A1:S38

So Please advise how i apply the code so its like A1:A38 & also S4:S38

Thanks

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

On Error Resume Next

If Not Intersect(Target, Range("A1:A38")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True

End If
On Error GoTo 0

End Sub

 

[Alex Blakenburg]

Try changing your intersect line to this:

    If Not Intersect(Target, Range("A1:A38" & "," & "S4:S38")) Is Nothing Then

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  7/10/2022  9:10:01 AM  EDT
If Target.Column = 1 And Target.Row < 39 Then
    Application.EnableEvents = False
    Target = UCase(Target)
Application.EnableEvents = True
End If

If Target.Column = 19 And Target.Row > 3 And Target.Row < 39 Then
    Application.EnableEvents = False
    Target = UCase(Target)
Application.EnableEvents = True
End If
End Sub

 

[ipbr21054]

Many thanks Alex worked a treat

 

[Alex Blakenburg]

Thanks for letting us know. Glad we could help.