The following code runs in Excel 2002, but not in Excel 2003. This code was
run on a entirely different machine running Excel 2003.

It gets hung-up on the "For" statement.

Dim vbModule As Object
For Each vbModule In appWB.ActiveWorkbook.VBProject.VBComponents
If vbModule.Type = 1 Then ' "1" is a module
appWB.ActiveWorkbook.VBProject.VBComponents.Remove vbModule
End If
Next vbModule

The error message is "Run Time Error '1004' Programmatic access to Visual
Basic Project is not trusted"

I have checked the "Trust Access to Visual Basic Project" box on the
Macro/Security/Trusted Sources window. This worked for Excel 2002 but not
for 2003.

Any ideas?

Thanks Mark

Check the "Trust access to Visual Basic Project" checkbox through:
ToolsMacrosSecurityTrusted Sources tab

Regards,
Greg

P.S. It's taking roughly 12 hours for my posts to appear lately so this
explains it if you receive this rather late.

"Mark" wrote:

The following code runs in Excel 2002, but not in Excel 2003. This code was
run on a entirely different machine running Excel 2003.

It gets hung-up on the "For" statement.

Dim vbModule As Object
For Each vbModule In appWB.ActiveWorkbook.VBProject.VBComponents
If vbModule.Type = 1 Then ' "1" is a module
appWB.ActiveWorkbook.VBProject.VBComponents.Remove vbModule
End If
Next vbModule

The error message is "Run Time Error '1004' Programmatic access to Visual
Basic Project is not trusted"

I have checked the "Trust Access to Visual Basic Project" box on the
Macro/Security/Trusted Sources window. This worked for Excel 2002 but not
for 2003.

Any ideas?

Thanks Mark