エクセルファイルで指定期間に自動ポップアップメセージを出す

エクセルファイルを開いた際、アクティブセルフ(B3:=today関数)が毎年4月1日から4月3日を表示の期間、メッセージボックス"*******"をポップアップさせたい。
この動作を実行させるマクロをお教え願います。

質問者からの補足コメント

• 

  先の質問内の<アクティブセルフ>は誤りで、正しくは(アクティブシートの)です。
  よろしくお願いいたします。

    補足日時：2016/01/22 10:25

No.2 ベストアンサー 回答者： bonaron 回答日時： 2016/01/22 12:45

> (B3:=today関数)が毎年4月1日から4月3日を表示の期間

別にセルを参照しなくても
今日が 4月1日から4月3日 の間ならOKですよね。

ThisWorkBook に記述してください。

Private Sub Workbook_Open()
　　If Month(Date) = 4 Then
　　　　If Day(Date) >= 1 And Day(Date) <= 3 Then
　　　　　　MsgBox "*******"
　　　　End If
　　End If
End Sub

この回答へのお礼

お礼のメッセージが遅くなり申し訳ございませんでした。
お陰をもちまして旨く対応することが出来ました。
改めお礼を申し上げます。

お礼日時：2016/01/31 17:58

No.1 回答者： tom04 回答日時： 2016/01/22 11:18

こんにちは！

シートモジュールにしてください。

Private Sub Worksheet_Activate()
If Month(Range("B3")) = 4 Then
If Day(Range("B3")) >= 1 And Day(Range("B3")) <= 3 Then
MsgBox "*******"
End If
End If
End Sub

こんな感じで良いのでしょうか？m(_ _)m

この回答へのお礼

お礼が遅くなり申し訳ございませんでした。
シートモジュールの要領を知らず、少々戸惑いましたが、お陰をもちまして完了することが出来ました。
重ねて御礼申し上げます。

お礼日時：2016/01/31 18:03