Hi guys
I have the following macro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Cells.CountLarge > 1 Then Exit Sub
Set rng = Intersect(Target, Union(Range("E4"), Range("A10:A19")))
If rng Is Nothing Then Exit Sub
Select Case rng.Address(0, 0)
Case...