Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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. |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
How to close an Addin? | Excel Discussion (Misc queries) | |||
Excel addin problem | Excel Programming | |||
Excel addin problem | Excel Programming | |||
AddIn installation problem | Excel Programming | |||
Addin problem | Excel Programming |