# Reminder on every other Friday

This is a discussion on Reminder on every other Friday within the Excel Questions forums, part of the Question Forums category; Good morning, everyone, Every other Friday, I need to submit my biweekly work hour sheet to manager. For example, as ...

1. ## Reminder on every other Friday

Good morning, everyone,
Every other Friday, I need to submit my biweekly work hour sheet to manager. For example, as 12/21/2007 is Friday and pay day, I need to submit my sheet. Next time is two weeks later, 1/4/08, and on.
12/21/07 is the first event.
I want to create a conditional format, or workbook events, or worksheet events to remind me on that Friday when I open that book or activate that sheet.
Any idea will be welcomed.
Thanks lot.
Dennis

2. ## Re: Reminder on every other Friday

This might be a stupid question, but do you use Outlook? You can set reminders up in there very easily.

3. ## Re: Reminder on every other Friday

Would it not be easier to set up a recurring Outlook task (assuming you use Outlook) to give you the reminder? That way, even if you forget to open the workbook altogether, you'd still get the reminder...

4. ## Re: Reminder on every other Friday

You could try this formula:

=MOD(TODAY()-DATE(2007,12,21),14)=0

5. ## Re: Reminder on every other Friday

thanks lot. I do not use OutLook.
I agree with Andrew's solution and I am thinking to convert this one to a workbook before_open events.

6. ## Re: Reminder on every other Friday

I just wrote workbook_open events to remind me when I open this workbook. But it gets a problem with Today().
What shoul I do?
thanks lot.
Dennis

Code:
```Private Sub Workbook_Open()
Dim BegFriday As Date
Dim MyFriday As Date
Dim ModFriday As Integer

BegFriday = "12/21/2007"
MyFriday = TODAY() - BegFriday
ModFriday = MyFriday Mod 14

If ModFriday = 0 Then
MsgBox "Today is Friday. Submit your time sheet"
End If

End Sub```

8. ## Re: Reminder on every other Friday

in VBA, DATE is used instead of TODAY

Replace

TODAY()

with

DATE

9. ## Re: Reminder on every other Friday

thanks lot. have a good day.

10. ## Re: Reminder on every other Friday

You might try this:
In ThisWorkbook paste

Private Sub Workbook_Open()

If XXX Then MsgBox "Your Message Here"

End Sub
Function XXX() As Boolean
XXX = ((Date - #12/21/2007#) Mod 14) = 0
End Function

*Gee, I was late getting of the pot.

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•