calendario in excel

Salve volevo chiedervi come posso risolvere il mio problema, faccio la premessa che di VBA sono negato, ho inserito in un foglio di excel un funzione, copiata dalla rete, per visualizzare un calendario a pop up, e purtroppo questo si attiva sempre facendo doppio click su qualsiasi cella mentre a me interesserebbe che lo faccia solo nelle celle della colonna H iniziando dalla cella 2 come posso fare.
Vi allego le stringhe della funzione che ho incollato nel foglio di VBA.
Se qualcuno potrebbe aiutarmi mi farebbe un grosso favore.
Grazie

Sub calendario()
Private Sub Calendar1_Click()

ActiveCell.Value = CDbl(Calendar1.Value)

' ActiveCell.NumberFormat = "mm/dd/yyyy"

ActiveCell.Select
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Not Application.Intersect(Range("I4:I8"), Target) Is Nothing Then

Calendar1.Left = Target.Left + Target.Width - Calendar1.Width

Calendar1.Top = Target.Top + Target.Height

Calendar1.Visible = True

' select Today's date in the Calendar

'Calendar1.Value = Date

If Not IsDate(Target.Value) Then

Calendar1.Value = Date

Else

Calendar1.Value = Target.Value

End If



End If

Ciao Sasà

Sarebbe il caso che tu allegassi un tuo file di esempio (con il calendario inserito) spiegando quello che vuoi fare perchè dal codice che hai postato non si capisce molto.