Message Box activated quarterly

[braddy60]

I have a weekly report which also has a quarterly report to fill in, I was wondering if there was a way to get a message box to pop up when it is due, I would only want it to pop up for 5 days eg April 1st to Apri the 5th, obviously being based on a 5 day date I could then adapt 1t to the other quarters.

I would be most grateful for any help.

I am using Excel 2007 but would need to save as Excel 2003 workbook.

Regards

Braddy

[RetiredGeek]

Braddy,

This should do it. I assumed from your message you wanted this message to pop up on the 1st 5 Business days and coded accordingly. If this is not the case just change the value in the 1st If statement to 6.

Option Explicit

Sub FirstFiveWorkDays()

   If Month(Now()) Mod 3 = 1 Then

     If Day(Now()) < 8 Then
   
       If Weekday(Day(Now()), vbMonday) < 5 Then
         MsgBox "Time to do Report", vbOKOnly, "Reminder"
       End If
     
     End If

   End If
     
End Sub       'FirstFiveWorkdays

Place this code in the Auto_Open() event of the workbook.

Edit: Braddy, I just re-read your post and noticed the Quarterly bit. You could just add {see above} another If to test for Month so you would only get it on April, July, Oct, & Jan.

[braddy60]

Hi Retired Geek

Thanks for your prompt answer, I will try it out.

Thanks again

Braddy

[braddy60]

Hi

You code was excellent, I reset my pc to Monday Oct 4th and sure enough up popped the message.

Many Many Thanks

Braddy