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?

--
Rick (MVP - Excel)



"ordnance1" wrote in message
...
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