Hi again,

See my reply in your other post. However, you can replace the following
lines of code that I gave you with .Clear

If .ListCount 0 Then
For i = .ListCount - 1 To 0 Step -1
.RemoveItem (i)
Next i
End If

Regards,

OssieMac