Привязка по дням недели

[i777]

Ребята подскажите, как привязать действие к пятнице, субботе и воскресению -MsgBox? и в случае отклонения - напоминание через час. Буду очень благодарен!

[doober]

Для примера,срабатывает в указаные дни и напоминает через час,далее под себя заточите
Разместить код в модуле книги

Private Sub Workbook_Open()
If Weekday(Now) = 5 Or Weekday(Now) = 6 Or Weekday(Now) = 7 Then
StartTmr
End If


End Sub
Sub StartTmr()

  Application.OnTime Now + TimeSerial(1, 0, 0), "ЭтаКнига.StartTmr"
  
  MsgBox "Ховайся,я пришел"
  
End Sub

[IgorGO]

только чтобы работало с пятницы по воскресеньье надо немножко поправить то, что Сергей предложил:

Private Sub Workbook_Open()
  If Weekday(Now,2) > 4 Then StartTmr
End sub