Combobox with Dynamic Date Range

[Admin]

If you have multiple comboboxes, you can try

With Me
    With .ComboBox1
        .List = d
        .ListIndex = -1
    End With
    With .ComboBox3
        .List = d
        .ListIndex = -1
    End With
End With