I adapted it to my my code:

Private Sub ComboBox1_Change()


If Me.ComboBox1.ListIndex < 0 Then
Exit Sub
End If


With Worksheets("Sheet1").Range("AL1")
.Value = Me.ComboBox1.Value
.NumberFormat = "hh:mm:ss - dd mmm yyyy"
End With


End Sub

It still doesnt work :(

The date in the list is like this:

08:36:24 - 01 Oct 2005


As soon as you leave the combobox it turns into that:

10/1/2005 8:36:24 AM

This is killing me! Also now my textbox skips the leading zeros all of
a sudden. Each time I think this project is done, something else
happens....

Matt