Removing references

[Steve]

Hi I wonder if anyone can help with this. I am trying to use the
following code to remove a reference to a project in VBA so that I can
then close that workbook from with the active workbook.

The code seems to obey all the structures as set out in VBA help but
it, and as many variants as I can try, don't work.

Does anyone know how to do this

Many Thanks in anticipation

Steve

Code:-


Sub remref001()
Dim str001 As Reference
Set str001 = Application.VBE.ActiveVBProject.References(7)
str001.Remove
End Sub

 

[anonymous]

UnTested...
try...
activeworkbook.VBProject.References.Remove(str001)

 

[Steve]

Sorry that was one of the variants I tried (tried it again though just
in case)

Basically the syntax seems OK but VBA comes back with "object doesn't
support this method"

Anyone any more ideas

Steve

 

[Tom Ogilvy]

using the () is a syntax violation - it evaluates the object and returns the
default value which isn't applicable as an argument. so removed the ()

activeworkbook.VBProject.References.Remove str001

so if you have a reference to the VBA extensibility Library

Sub AABB()
Dim str001 As Reference
Set str001 = ActiveWorkbook.VBProject.References(7)
ActiveWorkbook.VBProject.References.Remove str001
End Sub

if not

Sub AABB()
Dim str001 As Object
Set str001 = ActiveWorkbook.VBProject.References(7)
ActiveWorkbook.VBProject.References.Remove str001
End Sub

 

[Steve]

Tom

Brilliant as usual ! Many Thanks.

Steve

using the () is a syntax violation - it evaluates the object and returns the
default value which isn't applicable as an argument. so removed the ()

activeworkbook.VBProject.References.Remove str001

so if you have a reference to the VBA extensibility Library

Sub AABB()
Dim str001 As Reference
Set str001 = ActiveWorkbook.VBProject.References(7)
ActiveWorkbook.VBProject.References.Remove str001
End Sub

if not

Sub AABB()
Dim str001 As Object
Set str001 = ActiveWorkbook.VBProject.References(7)
ActiveWorkbook.VBProject.References.Remove str001
End Sub