Join two Worksheet Change events

[ipbr21054]

The codes are as follows.

Private Sub Worksheet_Change(ByVal Target As Range)    Application.EnableEvents = False




    If Not Application.Intersect(Target, Range("E6,F6,G6,H6,I6,J6,K6")) Is Nothing Then
        Target(1).Value = UCase(Target(1).Value)
    End If
    
    Application.EnableEvents = True




End Sub

And also

Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("P6:U6, P7")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub

Thank You

 

[Jaafar Tribak]

The codes are as follows.

Private Sub Worksheet_Change(ByVal Target As Range)    Application.EnableEvents = False

    If Not Application.Intersect(Target, Range("E6,F6,G6,H6,I6,J6,K6")) Is Nothing Then
        Target(1).Value = UCase(Target(1).Value)
    End If
    
    Application.EnableEvents = True




End Sub

And also

Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("P6:U6, P7")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub

Thank You

Can you explain your logic in words ie:- which are the cells that should be capitalised and those that shouldn't ?

 

[ipbr21054]

Hi,
Thanks for the reply but late last night i decided i wasnt going to do it that way afterall.

Thanks