Что я делаю не так:

Set prj = Workbooks("personal.xls").VBProject.VBComponents
For Each x In prj
If x.Name = "имя_модуля" Then
prj.Remove (x)
End If
Next

при вызове метода Remove возникает ошибка:

Invalid procedure call or argument