Private Sub Worksheet_Change(ByVal Target As Range)
Dim bFound As Boolean
Dim rCell As Range
bFound = False
'WEDNESDAY AM SERVER
If Not Intersect(Target, Range("WED_AM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("S11:S800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'WEDNESDAY PM SERVER
If Not Intersect(Target, Range("WED_PM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("U11:U800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'THURSDAY AM SERVER
If Not Intersect(Target, Range("THU_AM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("Z11:Z800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'THURSDAY PM SERVER
If Not Intersect(Target, Range("THU_PM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("AB11:AB800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'FRIDAY AM SERVER
If Not Intersect(Target, Range("FRI_AM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("AG11:AG800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'FRIDAY PM SERVER
If Not Intersect(Target, Range("FRI_PM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("AI11:AI800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SATURDAY AM SERVER
If Not Intersect(Target, Range("SAT_AM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("AN11:AN800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SATURDAY PM SERVER
If Not Intersect(Target, Range("SAT_PM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("AP11:AP800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SUNDAY AM SERVER
If Not Intersect(Target, Range("SUN_AM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("AU11:AU800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SUNDAY PM SERVER
If Not Intersect(Target, Range("SUN_PM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("AW11:AW800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'MONDAY AM SERVER
If Not Intersect(Target, Range("MON_AM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("E11:E800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'MONDAY PM SERVER
If Not Intersect(Target, Range("MON_PM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("G11:G800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'TUESDAY AM SERVER
If Not Intersect(Target, Range("TUE_AM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("L11:L800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'TUESDAY PM SERVER
If Not Intersect(Target, Range("TUE_PM_SER")) Is Nothing Then
For Each rCell In Sheet2.Range("N11:N800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'WEDNESDAY AM SERVERb
If Not Intersect(Target, Range("WED_AM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("S11:S800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'WEDNESDAY PM SERVERb
If Not Intersect(Target, Range("WED_PM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("U11:U800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'THURSDAY AM SERVERb
If Not Intersect(Target, Range("THU_AM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("Z11:Z800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'THURSDAY PM SERVERb
If Not Intersect(Target, Range("THU_PM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("AB11:AB800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'FRIDAY AM SERVERb
If Not Intersect(Target, Range("FRI_AM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("AG11:AG800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'FRIDAY PM SERVERb
If Not Intersect(Target, Range("FRI_PM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("AI11:AI800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SATURDAY AM SERVERb
If Not Intersect(Target, Range("SAT_AM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("AN11:AN800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SATURDAY PM SERVERb
If Not Intersect(Target, Range("SAT_PM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("AP11:AP800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SUNDAY AM SERVERb
If Not Intersect(Target, Range("SUN_AM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("AU11:AU800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SUNDAY PM SERVERb
If Not Intersect(Target, Range("SUN_PM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("AW11:AW800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'MONDAY AM SERVERb
If Not Intersect(Target, Range("MON_AM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("E11:E800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'MONDAY PM SERVERb
If Not Intersect(Target, Range("MON_PM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("G11:G800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'TUESDAY AM SERVERb
If Not Intersect(Target, Range("TUE_AM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("L11:L800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'TUESDAY PM SERVERb
If Not Intersect(Target, Range("TUE_PM_SERb")) Is Nothing Then
For Each rCell In Sheet2.Range("N11:N800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'*************************************************************************************************
'BUSSER BUSSER BUSSER BUSSER BUSSER BUSSER BUSSER BUSSER BUSSER BUSSER BUSSER BUSSER BUSSER BUSSER
'*************************************************************************************************
'WEDNESDAY AM BUS
If Not Intersect(Target, Range("WED_AM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("S11:S800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'WEDNESDAY PM BUS
If Not Intersect(Target, Range("WED_PM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("U11:U800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'THURSDAY AM BUS
If Not Intersect(Target, Range("THU_AM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("Z11:Z800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'THURSDAY PM BUS
If Not Intersect(Target, Range("THU_PM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("AB11:AB800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'FRIDAY AM BUS
If Not Intersect(Target, Range("FRI_AM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("AG11:AG800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'FRIDAY PM BUS
If Not Intersect(Target, Range("FRI_PM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("AI11:AI800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SATURDAY AM BUS
If Not Intersect(Target, Range("SAT_AM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("AN11:AN800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SATURDAY PM BUS
If Not Intersect(Target, Range("SAT_PM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("AP11:AP800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SUNDAY AM BUS
If Not Intersect(Target, Range("SUN_AM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("AU11:AU800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SUNDAY PM BUS
If Not Intersect(Target, Range("SUN_PM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("AW11:AW800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'MONDAY AM BUS
If Not Intersect(Target, Range("MON_AM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("E11:E800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'MONDAY PM BUS
If Not Intersect(Target, Range("MON_PM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("G11:G800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'TUESDAY AM BUS
If Not Intersect(Target, Range("TUE_AM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("L11:L800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'TUESDAY PM BUS
If Not Intersect(Target, Range("TUE_PM_BUS")) Is Nothing Then
For Each rCell In Sheet4.Range("N11:N800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'WEDNESDAY AM BUSb
If Not Intersect(Target, Range("WED_AM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("S11:S800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'WEDNESDAY PM BUSb
If Not Intersect(Target, Range("WED_PM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("U11:U800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'THURSDAY AM BUSb
If Not Intersect(Target, Range("THU_AM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("Z11:Z800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'THURSDAY PM BUSb
If Not Intersect(Target, Range("THU_PM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("AB11:AB800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'FRIDAY AM BUSb
If Not Intersect(Target, Range("FRI_AM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("AG11:AG800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'FRIDAY PM BUSb
If Not Intersect(Target, Range("FRI_PM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("AI11:AI800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SATURDAY AM BUSb
If Not Intersect(Target, Range("SAT_AM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("AN11:AN800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SATURDAY PM BUSb
If Not Intersect(Target, Range("SAT_PM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("AP11:AP800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SUNDAY AM BUSb
If Not Intersect(Target, Range("SUN_AM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("AU11:AU800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'SUNDAY PM BUSb
If Not Intersect(Target, Range("SUN_PM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("AW11:AW800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'MONDAY AM BUSb
If Not Intersect(Target, Range("MON_AM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("E11:E800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'MONDAY PM BUSb
If Not Intersect(Target, Range("MON_PM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("G11:G800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'TUESDAY AM BUSb
If Not Intersect(Target, Range("TUE_AM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("L11:L800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
'TUESDAY PM BUSb
If Not Intersect(Target, Range("TUE_PM_BUSb")) Is Nothing Then
For Each rCell In Sheet4.Range("N11:N800") 'Me refers to the worksheet that the event macro is in.
If Trim(rCell.Value) = Trim(Target.Value) _
Then
bFound = True
Exit For
End If
Next rCell
If Not bFound _
Then
MsgBox "There is an AVAILABILITY CONFLICT with this Employee", vbCritical
End If
End If
End Sub