Aviso de fechas cercanas.

Esta macro me avisa de fechas festivas en mexico .
pero lo hace mucho antes pues depende de =hoy().
Necesito que me avise solo unos días antes por ejemplo 5 días antes. ¿Se puede mejorar?
Por su gran ayuda muchas gracias¡
Sub diasdechupe()
Range("L1").Select
ActiveCell.FormulaR1C1 = _
"=IF(TODAY() <RC[1],RC[1],IF(TODAY() <R[1]C[1],R[1]C[1],IF(TODAY() <R[2]C[1],R[2]C[1],IF(TODAY() <R[3]C[1],R[3]C[1],IF(TODAY() <R[4]C[1],R[4]C[1],IF(TODAY() <R[5]C[1],R[5]C[1],IF(TODAY() <R[6]C[1],R[6]C[1],"""")))))))"
'=SI(HOY() <m1,M1,SI(HOY() <M2,M2,SI(HOY() <M3,M3,SI(HOY() <M4,M4,SI(HOY() <M5,M5,SI(HOY() <M6,M6,SI(HOY() <M7,M7,"")))))))
Range("M1").Select
ActiveCell.FormulaR1C1 = "1/1/2005"
Range("M2").Select
ActiveCell.FormulaR1C1 = "2/5/2005"
Range("M3").Select
ActiveCell.FormulaR1C1= "3/21/2005"
Range("M4").Select
ActiveCell.FormulaR1C1 = "5/1/2005"
Range("M5").Select
ActiveCell.FormulaR1C1 = "5/5/2005"
Range("M6").Select
ActiveCell.FormulaR1C1= "9/16/2005"
Range("M7").Select
ActiveCell.FormulaR1C1= "11/20/2005"
Range("M8").Select
ActiveCell.FormulaR1C1= "12/25/2005"
Range("L1").Select
End Sub