Worked out my own solution. My not look pretty, but it works:

Private Sub Calendar1_Click()

Dim MyDate, MyWeekDay
MyDate = Calendar1.Value ' Assign a date.

MyWeekDay = Weekday(MyDate)

If MyWeekDay = 5 Then

Exit Sub

End If
Unload Calendar
WrongDay.Show
End Sub


"Patrick Simonds" wrote in message
...
I asked this question a couple of days ago and got a response (but the
response while it would work, did not fit into how I wanted to set up my
form) so I thought I would try one more time:

Is there any way to lock a Calendar control in such a way that someone
could only select a Thursday? Ideally the last Thursday of the month.