Открыть календарь, на фиксированную дату

[segail]

Сделайте несколько копий .например,и для каждого случая вызывайте свой.Так хоть не запутаетесь.

Нет, не пойдет у меня, если в одном проекте, весомо будет.

А вот этот код как к переменным привязать? Он у меня самый дотошный при открытии календаря на текущую дату.

Private Sub CommandButton6_Click() 'Открытие календаря прихода
    
V_T = True
    If UserForm1.TextBox1.Value = "" Then V_T = False
    If IsEmpty([C10]) Then
        Условие = 1  'Приход
        Form_SelectDate.Show
        ElseIf [C10] = Sheets("Отчет").[N1] Then
        Условие = 1  'Приход
        Form_SelectDate.Show
    Else
        MsgBox "Данный вид топлива не соответствует виду топлива указанного в базе данных.", 64, "Информационное сообщение"
        UserForm3.SpinButton1.Enabled = False
        UserForm3.CommandButton5.Enabled = False
        Unload Me 'Закрыть форму UserForm1
        UserForm3.Show 'Открыть форму
    End If
End Sub