Auto_Close / Prohibit Close

[Tim]

I thought this code might prohibt the user from closing the workbook if there is not a range named "NOI", but it is not working. Can somebody help.

Sub Auto_Close()

For Each Name In ActiveWorkbook.Names
If Name.Name <> "NOI" Then
Workbook.Close = False
End If
Next

End Sub

[Gary Bailey]

Try

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim nm As Name
On Error Resume Next

Set nm = ThisWorkbook.Names("NOI")
If nm Is Nothing Then
Cancel = True
End If

End Sub

I don't think you should use Name as a variable name as its a VBA keyword.