Hi Patrick,

At the top of the sub, try inserting:

If Weekday(Range("C4")) = 7 Then Exit Sub

---
Regards,
Norman


"Patrick Simonds" wrote in message
...
Is there any way to prevent the code below from runing if the following
formula (on the active worksheet) is True WEEKDAY(C4)=7

If Union(Target, Range("A22:C25")).Address = Range("A22:C25").Address Then
EmployeeList.Show