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

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


-----Original Message-----
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
.

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


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

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

--
Regards,
Tom Ogilvy

"Steve" wrote in message
...

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


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Tom

Brilliant as usual ! Many Thanks.

Steve

"Tom Ogilvy" wrote in message
...
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

--
Regards,
Tom Ogilvy

"Steve" wrote in message
...

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


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!