You should delete it and the rest of the condition i.e.
Code:
Else
xSelection.Item(i).Save
End If
if you want it to process all the items. At present it just processes one item and saves all the rest. I suspect I would also want to remove the line
Code:
xSelection.Item(i).Delete
so that if the code does not do what you require, you won't lose the messages.