How to use to Call this calender

Paste this code in the Sheet1's module and it will call the calender when double-clicking in column A:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Cancel = True
        frm_Cal.Show
    End If
End Sub

Sorry, what the calendar does isn't my job; for this please refer to the original source, maybe you only left out some other piece of code.

The code was written to be used in a Form with Textboxes, not for a Double-Click but I'm sure that if you do these changes you should be able to use it with an Activecell input.

Open the code pane of the Form named frm_Cal and then from the 'Edit' menu choose 'Replace...' and input as 'Search:'

Me.TextBox1.Value

and input as 'Replace With:'

Activecell

be sure that the only checked is 'Current Module' then click 'Replace All'; you should get n.42 substitutions made.

That's all, enjoy.

Thanks for the feedback, glad I was able to help.