Pop up messages according the date of the month

[MariaPap]

Hello

I use this code(Provided by Mr Alan) that works fine.

Option Explicit
Private Sub Workbook_Open()
Dim sh As Worksheet
Set sh = Sheets("Sheet2")

If Day(Now()) = 10 Then
    MsgBox Join(Application.WorksheetFunction.Transpose(sh.Range("A1:A10").Value), Chr$(10))
    ElseIf Day(Now()) = 15 Then
        MsgBox Join(Application.WorksheetFunction.Transpose(sh.Range("B1:B10").Value), Chr$(10))
        ElseIf Day(Now()) = 20 Then
            MsgBox Join(Application.WorksheetFunction.Transpose(sh.Range("C1:c10").Value), Chr$(10))
            ElseIf Day(Now()) = 25 Then
                MsgBox Join(Application.WorksheetFunction.Transpose(sh.Range("D1:D10").Value), Chr$(10))
                ElseIf Day(Now()) = 30 Then
                    MsgBox Join(Application.WorksheetFunction.Transpose(sh.Range("E1:E10").Value), Chr$(10))
End If

End Sub

My problem is that when the specific dates of the code are in weekends or Holidays, user does not see the messages and forget to do the duties.

I need if specific days of the month that appear in the code(10,15,20,25,30) are in weekends OR Holidays the pop up message to appears the last working date BEFORE that day.

In My example as Tomorrow date is in the Holidays List, the message for DAY 15 of the month should appear today.

Thanks in advance for any assistance here!