Private Sub UserForm_Initialize()
Dim L&, d As Object
Set d = CreateObject("Scripting.Dictionary")
ActiveWorkbook.RefreshAll
With Sheet2
For L = 6 To .Range("C" & Rows.Count).End(xlUp).Row
If .Cells(L, 3).Value <> "" And Not d.Exists(.Cells(L, 3).Value) Then
d.Add .Cells(L, 3).Value, .Cells(L, 3).Value
If .Cells(L, 4) = "Error" And .Cells(L, 6).Interior.Color <> 10025880 Then ListBox1.AddItem .Cells(L, 3).Value
End If
Next L
End With