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