Hello Rick, I'm following your calendar course and this code as per your course is not working for me (keep highlighting the Private Sub and first Calendar) with Access 2013... What I'm I doing wrong?

Private Sub CalculateStartDate()
    StartDate = DateSerial(Year(Calendar), month(Calendar), 1)
    While Weekday(StartDate) <> 1
    StartDate = StartDate - 1
    Wend
        
End Sub


Private Sub Command2_Click()

    CalculateStartDate
    DoCmd.OpenForm "MonthlyCalendarF"
    
End Sub