Hi Dean,

change this:
For Each objLR In objListRows
If objListRows.Count 0 Then
objLR.Delete
End If
Next

with a loop:

for i=1 to objListRows.count

....do what you want

next i

Regards,

Ivan