So i spent a whole minute writing this. (thanks to the clues given by the other Bruce :) ) Public Sub Button1_Click() Debug GetLastMonthDay(Now) Debug Format(GetLastMonthDay(Now), "dddd dd mmm") End Public Sub GetLastMonthDay(hDate As Date) As Date Dim d As Date d = DateAdd(hDate, gb.Day, ...