Hi,

I need to determine the last business day before 15th of each month and last business day of each month. The equitation (Second_pay_day) returns the value and format that I want, but how to apply it to the business day before 15th? For example, Second_pay_day returns the exact last business day of each month if I change any_date to 11/1/2019 or 12/1/2019. What I want is using the same method to returns value 10/11/2019 for October, 10/13/2019 for November and 12/11/2019 for December......

Sub nth_business_day()

    Dim First_pay_day, Second_pay_day As Date
    Dim any_date As Date
   

    any_date = "10/1/2019"
    
    
    Second_pay_day = WorksheetFunction.workday(DateSerial(Year(any_date), Month(any_date) + 1, 1), -1)