Addin Close problem
 

I have an addin which creates its' own menu item on loading, and deletes it
on closing, but an error is raised when I shut excel down.

So I set a break point at the start of the following code:

Sub RemoveBofQ_UtilitiesMenu()
' This sub should be executed when the workbook is 'closed
' Deletes the Menus
Dim MenuSheet As Worksheet
Dim Row As Integer, Caption As String

On Error Resume Next
Set MenuSheet = ThisWorkbook.Sheets _
("BofQUtilitiesMenu")
Row = 2
Do Until IsEmpty(MenuSheet.Cells(Row, 1))
If MenuSheet.Cells(Row, 1) = 1 Then
Caption = MenuSheet.Cells(Row, 2)
Application.CommandBars(1).Controls _
(Caption).Delete
End If
Row = Row + 1
Loop
On Error GoTo 0
End Sub

The sub executes correctly, but when it ends, it jumps into another sub in a
standard module in the addin and runs it,
which raises the error.

How is this 2nd sub being called.....what can I look for,
please?

Regards.

Addin Close problem
 

Nothing obvious in the code you show, but obviously this routine doesn't
trigger itself since it isn't an event. Your next area to look is at
whatever triggers this routine. If you can find no calls, then look at any
events you have that might trigger the routine. Easier might be to fix the
routine that causes the error so that it doesn't cause the error - if it is
otherwise harmless in this scenario.

--
Regards,
Tom Ogilvy

"S G Booth" wrote in message
...
I have an addin which creates its' own menu item on loading, and deletes
it
on closing, but an error is raised when I shut excel down.

So I set a break point at the start of the following code:

Sub RemoveBofQ_UtilitiesMenu()
' This sub should be executed when the workbook is 'closed
' Deletes the Menus
Dim MenuSheet As Worksheet
Dim Row As Integer, Caption As String

On Error Resume Next
Set MenuSheet = ThisWorkbook.Sheets _
("BofQUtilitiesMenu")
Row = 2
Do Until IsEmpty(MenuSheet.Cells(Row, 1))
If MenuSheet.Cells(Row, 1) = 1 Then
Caption = MenuSheet.Cells(Row, 2)
Application.CommandBars(1).Controls _
(Caption).Delete
End If
Row = Row + 1
Loop
On Error GoTo 0
End Sub

The sub executes correctly, but when it ends, it jumps into another sub in
a
standard module in the addin and runs it,
which raises the error.

How is this 2nd sub being called.....what can I look for,
please?

Regards.