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