This code works fine. Is there a way to keep it from repeating over the next
5 days. Once Enter is selected I don't want to be asked again untill the next
year. Thanks in advance!

OOps sorry for got to post code.
If Month(Date) = 1 Then
If Day(Date) = 1 And Day(Date) < 5 Then
UserForm1.Show
If MsgBox("Do you qualify for Bank Day?", _
vbYesNo) = vbYes Then
Worksheets("Vacation").Range("C3").Value = 1
Else
Worksheets("Vacation").Range("C3").Value = 0
End If
End If
End If

"Richard" wrote:

This code works fine. Is there a way to keep it from repeating over the next
5 days. Once Enter is selected I don't want to be asked again untill the next
year. Thanks in advance!

Add the following line after UserForm1.Show...

"If Len(Worksheets(1).Range("C3").Value) = 0 Then"

Also, add another "End If" at the bottom.

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Richard" wrote in message...
OOps sorry for got to post code.
If Month(Date) = 1 Then
If Day(Date) = 1 And Day(Date) < 5 Then
UserForm1.Show
If MsgBox("Do you qualify for Bank Day?", _
vbYesNo) = vbYes Then
Worksheets("Vacation").Range("C3").Value = 1
Else
Worksheets("Vacation").Range("C3").Value = 0
End If
End If
End If

"Richard" wrote:
This code works fine. Is there a way to keep it from repeating over the next
5 days. Once Enter is selected I don't want to be asked again untill the next
year. Thanks in advance!