No question really can be considered an easy question. Here is a function to return the last Thursday of the previous month:
Function GetTh(dtDate As Date) As Date
Dim LastDate As Date, WeekD As Integer
LastDate = DateSerial(Year(dtDate), Month(dtDate), 0)
WeekD = Weekday(LastDate, vbSunday)...