Excel VBA Time Format as decimal with Combobox

Very basic, and very annoying, I have searched solution for many hours with no help...

Problem: I'm populating Combobox from named range, range is list of times (formatted as time :-), Combo seems fine, drop-down shows my times as they should be, but when selected time is formatted as a decimal number...

Here is the code (ripped down to bare minimum):

Private Sub UserForm_Initialize()
    ComboBoxTime.RowSource = "Help!Time" 
End Sub

"Help" is name of worksheet containing named range "Time"I have tried formatting different ways with no luck...

ComboBoxTime = Format(ComboBoxTime, "hh开发者_如何学Gomm")

Here is link to sample. http://www.equstom.fi/dateproblem.html

(And yes I need to populate from named range, instead for each loop, and I will set .value with code, Whole document is actually quite complex, but I included just The problem part...)

---

Try something like this:

Private Sub ComboBox1_Change()
With ComboBox1
  .Value = Format(.Value, "hh:mm:ss AMPM")

End With
End Sub 

HTH!

Edit This is what I see when leaving your combo. The time display works OK.

Edit 2

Found the error "invalid property":

You must set "Match Requiered" to FALSE in the combo box. If you consider that it should be "TRUE" you will have to validate by hand ...

---

The problem is named range I'm using, when values are formatted as time it won't work. I got it to work if values were Text! Problem has something to do with excel being in Finnish and VBA in english... I added second column next to range which copies text values to this named second range formatted as time. Quick and Dirty! (Thanks for your input Belisarius)