Semplicemente racchiudilo in un blocco If che controlli se Day(Now) = 1...