Heres my problem - this code prints the right companies, but it print
in numerous times (everytime I go through the loop) and it also print
the spaces.

Any ideas ?
---------------------------------------------

Private Sub CmdRec_Click()

Dim i As Long

ListOld.Clear

Sheet3.Activate
Sheet3.Range("A4").Select

With Sheet3
' only reads bold, not cond formatting

For i = 1 To .Range("B" & Rows.Count).End(xlUp).Row
For j = 1 To .Range("A" & Rows.Count).End(xlUp).Row
If Sheet3.Cells(i, "B").Value < Sheet3.Cells(i
"A").Value Then
ListOld.AddItem (Sheet3.Cells(i, "A").Value)
End If
Next j
Next i

End With

End Sub

------------------------------------------------------

Thanks a lot

--
Message posted from http://www.ExcelForum.com