Private Sub contr3_Change()
ListBox1.Clear
For col = 2 To 230
If Cells(1, col) = CDate(contr3) Then
For li = 2 To 65
If Cells(li, col).Value Like "O" And Cells(li, col - 1).Interior.ColorIndex <> Cells(li, col).Interior.ColorIndex Then
ListBox1.AddItem Cells(li, 1)
End If
Next li
End If
Next col
End Sub