AddIn aus Liste entfernen

Sub AddInRaus()
Dim objAddIn As AddIn
Const strAddIn As String = "MeinAddIn.xla"
For Each objAddIn In AddIns
If objAddIn.Name = strAddIn Then
objAddIn.Installed = False
Kill objAddIn.FullName
'Application.DisplayAlerts = False
'AddIns(objAddIn.Title).Installed = True
'Application.DisplayAlerts = True
Exit Sub
End If
Next
End Sub

Das AddIn wird deinstalliert (Haken raus) und auch von der Platte gelöscht. Es bleibt aber in der Liste der verfügbaren Addins enthalten. Hierzu gibt es auch nur eine .Add-Methode. Remove oder Delete sucht man vergeblich. Auch der Versuch, das nicht mehr vorhandene AddIn zu installieren bringt nicht den gewünschten Erfolg.
Gruß
Dierk