Hi ExcelMonkey

Do you have the same problem when you use this

On Error Resume Next
Set VBP = ThisWorkbook.VBProject
If Err.number < 0 Then
MsgBox "Your security settings do not allow this procedure to run." _
& vbCrLf & vbCrLf & "To change your security setting:" _
& vbCrLf & vbCrLf & " 1. Office Button Excel Options...Trust Center." & vbCrLf _
& " 2. Click on 'Trust Center Settings' " & vbCrLf _
& " 2. Click on 'Macro Settings' " & vbCrLf _
& " 3. Place a checkmark next to 'Trust access to the VBA project object model.'", _
vbCritical
ThisWorkbook.Close False
Exit Sub
End If

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"ExcelMonkey" wrote in message ...
I have an xla Addin with a line of code as follows below. This was written
to accomodate Excel 2003.

I know in Excel 2007 I have to go to Office Button/Excel Options/Trust
Center/Trust Center Settings. However I am not sure what do when I get here.
I have tried adding the Addin as a Trust location and allowing its
subfolders. However this does not work. I keep getting the error message.

Set Ref1 = ThisWorkbook.VBProject.References("Excel")
If Ref1 Is Nothing Then
MsgBox ("Note that you do not have Trust Access to Visual Basic
clicked on under your security tab. Go to Tools/Macros/Security/Trusted
Publishers and click this on. Then re-run this audit option.")
Unload MainUserForm
Exit Sub
Else
'do something
End if