How do I add a command to an existing formula?

[magpye]

I'm a very small user of Excel, only used for a couple of projects, nothing too fancy, I usually get stuck on the most simple bits & on reading the manuals I get to the stage where "I can't see the wood for the trees."

Below is a copy of a formula that was given to me sometime ago that works well, thank you.

As time has gone on I've found that I would like to extend this to another column, B16:B24.

Could someone please tell me/show me how to go about inserting the additional command?



SHEET 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Target, Range("E16:E42")) Is Nothing) Then
With Target
If Not .HasFormula Then
.Value = UCase(.Value)
End If
End With
End If
End Sub

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Target, Range("B16:B42,E16:E42")) Is Nothing) Then
    With Target
        If Not .HasFormula Then
            .Value = UCase(.Value)
        End If
    End With
End If
End Sub

 

[magpye]

That was quick, thanks very much, works well.

I wondered if that was the answer, better to be safe than sorry though, going on my past experience.

John