The code below ensures that the date selected (on Calendar1) is a Thursday
and works fine. The intent here to create an annual vacation book, and
because of how the book is printed it needs to start on a Thursday.
Calendar1 is set to show the month of January when it opens.

What I need now is some way to amend the code so that if January 1 does not
fall on a Thursday, that they can only select the Thursday prior to January
1.




Sub Thursday_Test()

Dim MyDate, MyWeekDay
MyDate = DVal '= Date selected on Calendar1
MyWeekDay = Weekday(MyDate)

If MyWeekDay = 5 Then
ActiveCell.Value = DVal
Unload Calendar

RenameWorksheets.Rename_Worksheets

Exit Sub

End If
Unload Calendar
WrongDay.Show

End Sub