i have put the following lines into my code (to debug) :-
tdim = DateSerial(year(dtdate), month(dtdate) + 1, 1) - DateSerial(year(dtdate), month(dtdate), 1)
testdate = WeekdayName(vbSunday)
fdom = WeekdayName(Weekday(DateSerial(year(Date), month(Date), 1)), , vbUseSystem)
based on todays date...