Thank you very much, I added code so it would start with a different route numbers depending in the day of week it is ran. Now I am set.
intR = IIf(Format(Date, "ddd") = "Sun", 601, IIf(Format(Date, "ddd") = "Mon", 701, IIf(Format(Date, "ddd") = "Tue", 801, IIf(Format(Date, "ddd") = "Wed", 901...