Paul Sansom
Board Regular
- Joined
- Jan 28, 2013
- Messages
- 178
- Office Version
- 2021
- 2016
- Platform
- Windows
Is there a simpler way you achieve this exclusion of cells? (Cell contents vary)
Cheers Paul
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:AF180")) Is Nothing Or _
Not Intersect(Target, Range("U8")) Is Nothing Or _
Not Intersect(Target, Range("X8")) Is Nothing Or _
Not Intersect(Target, Range("AA8")) Is Nothing Or _
Not Intersect(Target, Range("AD8")) Is Nothing Or _
Not Intersect(Target, Range("U32")) Is Nothing Or _
Not Intersect(Target, Range("X32")) Is Nothing Or _
Not Intersect(Target, Range("AA32")) Is Nothing Or _
Not Intersect(Target, Range("AD32")) Is Nothing Or _
Not Intersect(Target, Range("U56")) Is Nothing Or _
Not Intersect(Target, Range("X56")) Is Nothing Or _
Not Intersect(Target, Range("AA56")) Is Nothing Or _
Not Intersect(Target, Range("AD56")) Is Nothing Or _
Not Intersect(Target, Range("U101")) Is Nothing Or _
Not Intersect(Target, Range("X101")) Is Nothing Or _
Not Intersect(Target, Range("AA101")) Is Nothing Or _
Not Intersect(Target, Range("AD101")) Is Nothing Or _
Not Intersect(Target, Range("U129")) Is Nothing Or _
Not Intersect(Target, Range("X129")) Is Nothing Or _
Not Intersect(Target, Range("AA129")) Is Nothing Or _
Not Intersect(Target, Range("AD129")) Is Nothing _
Then Exit Sub
Cheers Paul