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!