Private Sub ComboBox1_Change()
Dim I As Integer
Dim Ws As Worksheet
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Set Ws = Sheets("Sheet1")
For I = 1 To 3
With Me.Controls("ListBox" & I)
.Clear
If I = 1 Then
.AddItem Format(Ws.Cells(Me.ComboBox1.Column(1), 4 + I), "mm/dd/yyyy")
Else
.AddItem Ws.Cells(Me.ComboBox1.Column(1), 4 + I)
End If
End With
Next I
End Sub