Alıntı:Ayrıca İzin başlangıç tarihini(C17) Takvim yardımıyla seçim yapmak istiyorum.

Sub CallDatePickerFromOtherWorkbooks()

    Dim TestWkbk As Workbook

    Dim obj As Object



    If Val(Application.Version) >= 12 Then

        Set TestWkbk = Nothing

        On Error Resume Next

        Set TestWkbk = Workbooks("WinDatePicker.xlam")

        On Error GoTo 0

        If TestWkbk Is Nothing Then

            MsgBox "Sorry the Date Picker add-in is not open."

        Else

            Application.Run "'" & TestWkbk.Name & "'!OpenDatePicker", obj

        End If

    End If

End Sub