I'm now getting a 'Runtime error 40036 when I click on 'Current Day' in the dropdown menu. When I select 'Debug' in the Error window it highlights the following line of code

If sht.Range("O2").Value = Date Then

All other selections work fine.
Thanks for all your input.