Edit to existing range code

[ipbr21054]

Afternoon,

I have the code in use supplied below.
You will see that the current range is G13:O17 but how would i then edit the code to include the range G27:O42

Private Sub Worksheet_Change(ByVal Target As Range)Dim C As Range, d As Range
Set d = Intersect(Target, Range("G13:O17"))
If d Is Nothing Then Exit Sub
Application.EnableEvents = False
    For Each C In d
        If C.Column <> 14 Then
            If Not C.HasFormula Then C = UCase(C)
        End If
    Next
Application.EnableEvents = True
End Sub

 

[steve the fish]

Use this:

Set d = Intersect(Target, Range("G13:O17", "G27:O42"))

 

[ipbr21054]

Thanks,

I had 1 to many )