Hello,

Please help me to make my Do Until Loop work with multiple conditions.
The outcome is correct using just one condtion (either works), but when
I try to use both, the loop goes one too many iterations.


Public Function SetNextDate()
x = 1
Set rng = Sheets("REF").Range("B1",
Sheets("REF").Range("B1").End(xlDown))

Do Until rng.Find(Date + x) Is Nothing And Weekday(Date + x, vbMonday)
< 6
x = x + 1
Loop
dteNextJulian = Date + x
End Function


Essentially, I want "Date" to increase by one day until "Date + x" is
NOT a weekend day AND "Date + x" is NOT found in a list of special
dates specified in "rng".

Thank you in advance for your help!
Ben.