Forall i In doc.items If i.name="$FILE" Then If i.values(0) = "2002 Draft Authorisation sorted by host.xls" Then Stop Call Doc.RemoveItem(i.name) End If End If End Forall