kalender in een cel

[vrouw]

Hoi.

Ik wil in 2 cellen naast elkaar een pop up kalender hebben.
Ik heb nu wel de userform voor de kalender en onderstaande code maar dan komt die popup in iedere cel op het werkblad.
Ik wil het zeg maar alleen in cel A1 en B1 hebben, kan dat?

Deze code heb ik nu:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Kalender.Show
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[Cobbe]

Probeer dit eens:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If NOT intersect(target, range("A1:B1")) is nothing then    
     Kalender.Show
 End if
End Sub