Need to break up my SheetSelectionChange routine

ordnance1 · Mar 31, 2010

I have 72 sets of the code below (each one is different) for each week of my
6 week calendar, for a total of 432 sets. I now get a compile error
"Procedure to Large". So what I would like to do is create a module for each
week and then refer to the module in the SheetSelectionChange routine. Is
this possible and if so how do I edit the code below so that it will work in
that situation?

If Range("C4") = "" Then
If Not Intersect(Target, Range("B5:C48")) Is Nothing Then
MsgBox "You have selected a day that is not available for
vacation. Please reselect."
Range("A3").Select
End
End If
End If

Rick Rothstein · Mar 31, 2010

How are they different? It may possible to condense your code dramatically
depending on what the actual difference are. Can you give us a sample of 5
or 6 **consecutive** sets so we can see if there is a pattern to your sets?

ordnance1 · Mar 31, 2010

'Sunday Day

'Office

If Range("Q7") = 0 Then
If Not Intersect(Target, Range("B5:C9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q7") = 1 Then
If Not Intersect(Target, Range("B6:C9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q7") = 2 Then
If Not Intersect(Target, Range("B7:C9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q7") = 3 Then
If Not Intersect(Target, Range("B8:C9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q7") = 4 Then
If Not Intersect(Target, Range("B9:C9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

Rick Rothstein · Mar 31, 2010

Based on the pattern I see so far, **all** of your code for Range("Q7")
values greater than or equal to 0 and less than or equal to 4 (maybe even
less than or equal to 5 depending on whether is a valid value for Q7 to
contain) can be replaced with this single code set...

If Not Intersect(target, Range(Range("B5").Offset( _
Range("Q7")), Range("C9"))) Is Nothing Then
MsgBox "You have selected a day that is not " & _
"available for vacation. Please reselect."
Range("A3").Select
Exit Sub
End If

The rest of your sets can probably be condensed as well, either individually
or perhaps into a single modification of the above set, but that is hard to
say without seeing the rest of your sets and what patterns they contain. Can
you copy/paste all 72 of your sets (or is it 432... I'm still not quite sure
of your layout) for this SheetSelectionChange event procedure into a
response to this message so we can see what else can be done?

Tim Williams · Mar 31, 2010

Based only on the sample you posted:

'*************************
dim tmp
tmp = Range("Q7").Value

if tmp>=0 and tmp<=4 then
If Not Intersect(Target, Range("B" & (5+tmp) & ":C9")) Is Nothing Then
MsgBox "You have selected a day that is not available for vacation.
Please reselect."
Range("A3").Select
Exit Sub
End If
End If
'************************

Your full setup is clearly more complex than that, but this might give you
some ideas.

Tim

ordnance1 · Mar 31, 2010

I have only made it half way (3 weeks) befor the compile error, but her is
what I have to date:

'Sunday Day

'Office

If Range("Q7") = 0 Then
If Not Intersect(Target, Range("B5:C9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q7") = 1 Then
If Not Intersect(Target, Range("B6:C9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q7") = 2 Then
If Not Intersect(Target, Range("B7:C9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q7") = 3 Then
If Not Intersect(Target, Range("B8:C9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q7") = 4 Then
If Not Intersect(Target, Range("B9:C9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q7") = 0 Then
If Not Intersect(Target, Range("B10:C12")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'PT Drivers

If Range("Q15") = 0 Then
If Not Intersect(Target, Range("B13:C22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q15") = 1 Then
If Not Intersect(Target, Range("B14:C22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q15") = 2 Then
If Not Intersect(Target, Range("B15:C22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q15") = 3 Then
If Not Intersect(Target, Range("B16:C22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q15") = 4 Then
If Not Intersect(Target, Range("B17:C22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q15") = 5 Then
If Not Intersect(Target, Range("B18:C22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q15") = 6 Then
If Not Intersect(Target, Range("B19:C22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q15") = 7 Then
If Not Intersect(Target, Range("B20:C22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q15") = 8 Then
If Not Intersect(Target, Range("B21:C22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q15") = 9 Then
If Not Intersect(Target, Range("B22:C22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q15") = 0 Then
If Not Intersect(Target, Range("B23:C26")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'FR Drivers

If Range("Q29") = 0 Then
If Not Intersect(Target, Range("B27:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 1 Then
If Not Intersect(Target, Range("B28:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 2 Then
If Not Intersect(Target, Range("B29:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 3 Then
If Not Intersect(Target, Range("B30:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 4 Then
If Not Intersect(Target, Range("B31:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 5 Then
If Not Intersect(Target, Range("B32:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 6 Then
If Not Intersect(Target, Range("B33:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 7 Then
If Not Intersect(Target, Range("B34:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 8 Then
If Not Intersect(Target, Range("B35:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 9 Then
If Not Intersect(Target, Range("B36:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 10 Then
If Not Intersect(Target, Range("B37:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 11 Then
If Not Intersect(Target, Range("B38:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 12 Then
If Not Intersect(Target, Range("B39:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 13 Then
If Not Intersect(Target, Range("B40:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 14 Then
If Not Intersect(Target, Range("B41:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 15 Then
If Not Intersect(Target, Range("B42:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 16 Then
If Not Intersect(Target, Range("B43:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q29") = 17 Then
If Not Intersect(Target, Range("B44:C44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q29") = 0 Then
If Not Intersect(Target, Range("B45:C48")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Saturday Day

'Office

If Range("Q6") = 0 Then
If Not Intersect(Target, Range("N5:O9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q6") = 1 Then
If Not Intersect(Target, Range("N6:O9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q6") = 2 Then
If Not Intersect(Target, Range("N7:O9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q6") = 3 Then
If Not Intersect(Target, Range("N8:O9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q6") = 4 Then
If Not Intersect(Target, Range("N9:O9")) Is Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q6") = 0 Then
If Not Intersect(Target, Range("N10:O12")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'PT Drivers

If Range("Q14") = 0 Then
If Not Intersect(Target, Range("N13:O22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q14") = 1 Then
If Not Intersect(Target, Range("N14:O22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q14") = 2 Then
If Not Intersect(Target, Range("N15:O22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q14") = 3 Then
If Not Intersect(Target, Range("N16:O22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q14") = 4 Then
If Not Intersect(Target, Range("N17:O22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q14") = 5 Then
If Not Intersect(Target, Range("N18:O22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q14") = 6 Then
If Not Intersect(Target, Range("N19:O22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q14") = 7 Then
If Not Intersect(Target, Range("N20:O22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q14") = 8 Then
If Not Intersect(Target, Range("N21:O22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q14") = 9 Then
If Not Intersect(Target, Range("N22:O22")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q14") = 0 Then
If Not Intersect(Target, Range("N23:O26")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'FR Drivers

If Range("Q28") = 0 Then
If Not Intersect(Target, Range("N27:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 1 Then
If Not Intersect(Target, Range("N28:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 2 Then
If Not Intersect(Target, Range("N29:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 3 Then
If Not Intersect(Target, Range("N30:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 4 Then
If Not Intersect(Target, Range("N31:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 5 Then
If Not Intersect(Target, Range("N32:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 6 Then
If Not Intersect(Target, Range("N33:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 7 Then
If Not Intersect(Target, Range("N34:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 8 Then
If Not Intersect(Target, Range("N35:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 9 Then
If Not Intersect(Target, Range("N36:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 10 Then
If Not Intersect(Target, Range("N37:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 11 Then
If Not Intersect(Target, Range("N38:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 12 Then
If Not Intersect(Target, Range("N39:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 13 Then
If Not Intersect(Target, Range("N40:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 14 Then
If Not Intersect(Target, Range("N41:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 15 Then
If Not Intersect(Target, Range("N42:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 16 Then
If Not Intersect(Target, Range("N43:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q28") = 17 Then
If Not Intersect(Target, Range("N44:O44")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q28") = 0 Then
If Not Intersect(Target, Range("N45:O48")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Week Two Days not available

'Office

If Range("Q52") = 0 Then
If Not Intersect(Target, Range("B50:C54")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q52") = 1 Then
If Not Intersect(Target, Range("B51:C54")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q52") = 2 Then
If Not Intersect(Target, Range("B52:C54")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q52") = 3 Then
If Not Intersect(Target, Range("B53:C54")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q52") = 4 Then
If Not Intersect(Target, Range("B54:C54")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q52") = 0 Then
If Not Intersect(Target, Range("B55:C57")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'PT Drivers

If Range("Q60") = 0 Then
If Not Intersect(Target, Range("B58:C67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q60") = 1 Then
If Not Intersect(Target, Range("B59:C67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q60") = 2 Then
If Not Intersect(Target, Range("B60:C67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q60") = 3 Then
If Not Intersect(Target, Range("B61:C67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q60") = 4 Then
If Not Intersect(Target, Range("B62:C67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q60") = 5 Then
If Not Intersect(Target, Range("B63:C67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q60") = 6 Then
If Not Intersect(Target, Range("B64:C67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q60") = 7 Then
If Not Intersect(Target, Range("B65:C67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q60") = 8 Then
If Not Intersect(Target, Range("B66:C67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q60") = 9 Then
If Not Intersect(Target, Range("B67:C67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q60") = 0 Then
If Not Intersect(Target, Range("B68:C71")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'FR Drivers

If Range("Q74") = 0 Then
If Not Intersect(Target, Range("B72:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 1 Then
If Not Intersect(Target, Range("B73:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 2 Then
If Not Intersect(Target, Range("B74:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 3 Then
If Not Intersect(Target, Range("B75:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 4 Then
If Not Intersect(Target, Range("B76:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 5 Then
If Not Intersect(Target, Range("B77:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 6 Then
If Not Intersect(Target, Range("B78:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 7 Then
If Not Intersect(Target, Range("B79:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 8 Then
If Not Intersect(Target, Range("B80:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 9 Then
If Not Intersect(Target, Range("B81:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 10 Then
If Not Intersect(Target, Range("B82:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 11 Then
If Not Intersect(Target, Range("B83:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 12 Then
If Not Intersect(Target, Range("B84:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 13 Then
If Not Intersect(Target, Range("B85:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 14 Then
If Not Intersect(Target, Range("B86:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 15 Then
If Not Intersect(Target, Range("B87:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 16 Then
If Not Intersect(Target, Range("B88:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q74") = 17 Then
If Not Intersect(Target, Range("B89:C89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q74") = 0 Then
If Not Intersect(Target, Range("B90:C93")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Saturday Day

'Office

If Range("Q51") = 0 Then
If Not Intersect(Target, Range("N50:O54")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q51") = 1 Then
If Not Intersect(Target, Range("N51:O54")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q51") = 2 Then
If Not Intersect(Target, Range("N52:O54")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q51") = 3 Then
If Not Intersect(Target, Range("N53:O54")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q51") = 4 Then
If Not Intersect(Target, Range("N54:O54")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q51") = 0 Then
If Not Intersect(Target, Range("N55:O57")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'PT Drivers

If Range("Q59") = 0 Then
If Not Intersect(Target, Range("N58:O67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q59") = 1 Then
If Not Intersect(Target, Range("N59:O67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q59") = 2 Then
If Not Intersect(Target, Range("N60:O67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q59") = 3 Then
If Not Intersect(Target, Range("N61:O67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q59") = 4 Then
If Not Intersect(Target, Range("N62:O67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q59") = 5 Then
If Not Intersect(Target, Range("N63:O67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q59") = 6 Then
If Not Intersect(Target, Range("N64:O67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q59") = 7 Then
If Not Intersect(Target, Range("N65:O67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q59") = 8 Then
If Not Intersect(Target, Range("N66:O67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q59") = 9 Then
If Not Intersect(Target, Range("N67:O67")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q59") = 0 Then
If Not Intersect(Target, Range("N68:O71")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'FR Drivers

If Range("Q73") = 0 Then
If Not Intersect(Target, Range("N72:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 1 Then
If Not Intersect(Target, Range("N73:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 2 Then
If Not Intersect(Target, Range("N74:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 3 Then
If Not Intersect(Target, Range("N75:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 4 Then
If Not Intersect(Target, Range("N76:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 5 Then
If Not Intersect(Target, Range("N77:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 6 Then
If Not Intersect(Target, Range("N78:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 7 Then
If Not Intersect(Target, Range("N79:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 8 Then
If Not Intersect(Target, Range("N80:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 9 Then
If Not Intersect(Target, Range("N81:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 10 Then
If Not Intersect(Target, Range("N82:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 11 Then
If Not Intersect(Target, Range("N83:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 12 Then
If Not Intersect(Target, Range("N84:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 13 Then
If Not Intersect(Target, Range("N85:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 14 Then
If Not Intersect(Target, Range("N86:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 15 Then
If Not Intersect(Target, Range("N87:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 16 Then
If Not Intersect(Target, Range("N88:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q73") = 17 Then
If Not Intersect(Target, Range("N89:O89")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q73") = 0 Then
If Not Intersect(Target, Range("N90:O93")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Week Three Days not available

'Office

If Range("Q97") = 0 Then
If Not Intersect(Target, Range("B95:C99")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q97") = 1 Then
If Not Intersect(Target, Range("B96:C99")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q97") = 2 Then
If Not Intersect(Target, Range("B97:C99")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q97") = 3 Then
If Not Intersect(Target, Range("B98:C99")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q97") = 4 Then
If Not Intersect(Target, Range("B99:C99")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q97") = 0 Then
If Not Intersect(Target, Range("B100:C102")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'PT Drivers

If Range("Q105") = 0 Then
If Not Intersect(Target, Range("B103:C112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q105") = 1 Then
If Not Intersect(Target, Range("B104:C112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q105") = 2 Then
If Not Intersect(Target, Range("B105:C112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q105") = 3 Then
If Not Intersect(Target, Range("B106:C112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q105") = 4 Then
If Not Intersect(Target, Range("B107:C112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q105") = 5 Then
If Not Intersect(Target, Range("B108:C112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q105") = 6 Then
If Not Intersect(Target, Range("B109:C112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q105") = 7 Then
If Not Intersect(Target, Range("B110:C112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q105") = 8 Then
If Not Intersect(Target, Range("B111:C112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q105") = 9 Then
If Not Intersect(Target, Range("B112:C112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q105") = 0 Then
If Not Intersect(Target, Range("B113:C116")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'FR Drivers

If Range("Q119") = 0 Then
If Not Intersect(Target, Range("B117:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 1 Then
If Not Intersect(Target, Range("B118:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 2 Then
If Not Intersect(Target, Range("B119:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 3 Then
If Not Intersect(Target, Range("B120:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 4 Then
If Not Intersect(Target, Range("B121:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 5 Then
If Not Intersect(Target, Range("B122:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 6 Then
If Not Intersect(Target, Range("B123:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 7 Then
If Not Intersect(Target, Range("B124:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 8 Then
If Not Intersect(Target, Range("B125:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 9 Then
If Not Intersect(Target, Range("B126:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 10 Then
If Not Intersect(Target, Range("B127:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 11 Then
If Not Intersect(Target, Range("B128:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 12 Then
If Not Intersect(Target, Range("B129:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 13 Then
If Not Intersect(Target, Range("B130:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 14 Then
If Not Intersect(Target, Range("B131:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 15 Then
If Not Intersect(Target, Range("B132:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 16 Then
If Not Intersect(Target, Range("B133:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q119") = 17 Then
If Not Intersect(Target, Range("B134:C134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q119") = 0 Then
If Not Intersect(Target, Range("B135:C138")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Saturday Day

'Office

If Range("Q96") = 0 Then
If Not Intersect(Target, Range("N95:O99")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q96") = 1 Then
If Not Intersect(Target, Range("N96:O99")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q96") = 2 Then
If Not Intersect(Target, Range("N97:O99")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q96") = 3 Then
If Not Intersect(Target, Range("N98:O99")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q96") = 4 Then
If Not Intersect(Target, Range("N99:O99")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q96") = 0 Then
If Not Intersect(Target, Range("N100:O102")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'PT Drivers

If Range("Q104") = 0 Then
If Not Intersect(Target, Range("N103:O112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q104") = 1 Then
If Not Intersect(Target, Range("N104:O112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q104") = 2 Then
If Not Intersect(Target, Range("N105:O112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q104") = 3 Then
If Not Intersect(Target, Range("N106:O112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q104") = 4 Then
If Not Intersect(Target, Range("N107:O112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q104") = 5 Then
If Not Intersect(Target, Range("N108:O112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q104") = 6 Then
If Not Intersect(Target, Range("N109:O112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q104") = 7 Then
If Not Intersect(Target, Range("N110:O112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q104") = 8 Then
If Not Intersect(Target, Range("N111:O112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q104") = 9 Then
If Not Intersect(Target, Range("N112:O112")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q104") = 0 Then
If Not Intersect(Target, Range("N113:O116")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'FR Drivers

If Range("Q118") = 0 Then
If Not Intersect(Target, Range("N117:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 1 Then
If Not Intersect(Target, Range("N118:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 2 Then
If Not Intersect(Target, Range("N119:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 3 Then
If Not Intersect(Target, Range("N120:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 4 Then
If Not Intersect(Target, Range("N121:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 5 Then
If Not Intersect(Target, Range("N122:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 6 Then
If Not Intersect(Target, Range("N123:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 7 Then
If Not Intersect(Target, Range("N124:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 8 Then
If Not Intersect(Target, Range("N125:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 9 Then
If Not Intersect(Target, Range("N126:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 10 Then
If Not Intersect(Target, Range("N127:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 11 Then
If Not Intersect(Target, Range("N128:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 12 Then
If Not Intersect(Target, Range("N129:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 13 Then
If Not Intersect(Target, Range("N130:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 14 Then
If Not Intersect(Target, Range("N131:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 15 Then
If Not Intersect(Target, Range("N132:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 16 Then
If Not Intersect(Target, Range("N133:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

If Range("Q118") = 17 Then
If Not Intersect(Target, Range("N134:O134")) Is Nothing
Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

'Next In-Line

If Range("Q118") = 0 Then
If Not Intersect(Target, Range("N135:O138")) Is
Nothing Then
MsgBox "You have selected a day that is not
available for vacation. Please reselect."
Range("A3").Select
End
End If
End If

Need to break up my SheetSelectionChange routine

ordnance1

Rick Rothstein

ordnance1

Rick Rothstein

Tim Williams

ordnance1