Still need help
Code
-----------------------
countA = DateDiff("d", Forms![rettool1]![StDate], Date, VbMonday, vbUseSystem)
For intcount = 0 To countA
MsgBox "count" & intcount
If Weekday(Strdatestart + intcount) < 6 Then wdcount = wdcount + 1
If Weekday(Strdatestart + intcount) >...