Glad you got it working!

Eddie_SP wrote:

Hi Dave,

I just made a correction:

While (ActiveSheet.Cells(1 + i, 11).Value < 0)
i = i + 1
If UCase(Cells(1 + i, 11).Text) < "OK" And Cells(1 + i, 11).Text <
"" Then
.AddItem Cells(i + 1, 1).Text 'I ADDED "+ 1"
.List(.ListCount - 1, 1) = Cells(i + 1, 2).Text 'I ADDED (+ 1)
End If
Wend

( + 1) - Because the other way, it adds the value of the upper row, not the
row I wanted ! =)

Dave, I really really appreciate your help !
Thank you very much !

And thank you JLGWhiz !

Eddie.

--

Dave Peterson