Many thanks for the prompt respones:
Ian, the Lastwrokingday in month formula that you kindly posted does not appear to work for dates after February, I can't work out why, any thoughts?
If dayofweek(Date(year(dateadd("m", 1,Currentdate)),
month(dateadd("m", 1,Currentdate)), 01)-1) = 1 then...