The code works on items you select.

You will probably find For Each logic skips every other item if you select multiple items. This issue occurs when moving or deleting.

If so then select only one item at a time until you know how to change

For Each objItem In Application.ActiveExplorer.Selection

to

For i = Application.ActiveExplorer.Selection.Count to 1 step -1