userforma popup calendar

poz
evo kod koji prikazuje kalendar na dupli klik i izabereš datum i to je to:
na list koji hočeš da ima kalendar kopiraš kod i importuješ formu kalendara
poz

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Rng1 As Range

'Assign the range to work with
Set Rng1 = Range("B7:B7") 'promjeni ćeliju gdje će duplim klikom pokazati kalendar

'Only work on assigned range
If Intersect(Target, Rng1) Is Nothing Then Exit Sub

'Cancel cell editing that would normally trigger when you double click
Cancel = True

'Call the userform
UserForm1.Show

End Sub

Potpis

Jasmin