ComboBox Property will not change value

[Chiznuggets]

Hello,

I'm creating a User Form and trying to get the starting position of a Combo Box to be the number of the month. For example since it is currently July I would like the Combo Box to start on position 6.

When I try this

varToday = Date    
    varToday = varToday - 10 'this is purposeful
    
    varToday = Format(varToday, "mm-dd-yy")
     
    lngStart = Month(varToday)
    
    boxDate.SelStart = lngStart - 1

All the variables except boxDate.SelStart acquire the desired value when I step through the program. It is staying as a value of 0 while the lngStart is a 6. Any ideas? I have all this code in the Userform under the initialize section.

 

[Domenic]

It looks like your combobox has a list of months, and you'd like the current (adjusted) month selected upon initialization. If so, try the following instead...

    With Me.boxDate
        .Value = .List(Month(Date - 10) - 1)
    End With

Hope this helps!

 

[Chiznuggets]

Not only did it work, but your suggestion was nice and concise! Thank you very much!

 

[Domenic]

That's great, thanks for your feedback.

Cheers!