Привязка действия к календарю

[i777]

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

[VictorM]

несколько последних дней каждого месяца

Имеются ввиду определенные даты?
Тогда можно примерно так:

Private Sub Workbook_Open()
Call ПроверкаДаты
End Sub

Sub ПроверкаДаты() 
Dim myDate As Date
Today = Date
myDate = #6/17/2008#
If myDate = Today Then MsgBox "Сегодня день рождения!"
End Sub

[i777]

Спасибо VictorM )))