dont forget to always loop in reverse when there is a possibility of removing more than one item.
VB Code:
  1. For I = List1.ListCount - 1 To 0 Step -1

casey.