Sub DelAllCalCat() ' Thanks for advice via http://support.microsoft.com/kb/2008840

 On Error GoTo MyHandleIt

 Dim myitem, mycollection As Object
 Set mycollection = Application.ActiveExplorer.Selection
 iTotal = mycollection.Count

 For j = iTotal To 1 Step -1
  Set myitem = mycollection(j)
  myitem.Delete
  Set myitem = Nothing
  TryAnother:
 Next

Exit Sub

MyHandleIt:
Resume TryAnother

End Sub