Select Sheets For Specific Date By Clicking On A Calendar

[snb]

Even the instruction 'call' isn't necessary any more since 1997:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    CalendarCellButton
End Sub

I made an alternative: see the attachment.