HYCH
Am using the code below, to pull back the a list of Times (format
hh:mm)

But still shows as decimal numbers


any help please !!!


Private Sub UserForm_Initialize()
Dim cPart As Range
Dim ws As Worksheet
Set ws = Worksheets("Lists")
For Each cPart In ws.Range("C1:C88")
With Me.ComboBox1
.AddItem cPart.Value
.List(.ListCount - 1, 1) = Format(cPart.Offset(0, 1).Value,
"hh:mm")
End With
Next cPart
Me.ComboBox1.Value = ""
Me.ComboBox1.SetFocus
End Sub


Steve