Hi there,
I kindly ask some help fixing a add in I got from a company which is not there anymore.
The made an add in to import CSV files and make a graph from it.
In Excel 2016 it stopped working and Excel stops with the error (while starting):
Error Run Time error '9':
Subscript out of range
If you say debug it gives:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cbWSMenuBar As CommandBar
On Error Resume Next
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
cbWSMenuBar.Controls("Alsius").Delete
cbWSMenuBar.Controls("Alsius").Delete
cbWSMenuBar.Controls("Alsius").Delete
cbWSMenuBar.Controls("Alsius").Delete
End Sub
Private Sub Workbook_Open()
Dim cbWSMenuBar As CommandBar
Dim muClientFilter As CommandBarControl
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
Set muClientFilter = cbWSMenuBar.Controls.Add(Type:=msoControlPopup, Before:=11)
On Error Resume Next
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
cbWSMenuBar.Controls("Alsius").Delete
cbWSMenuBar.Controls("Alsius").Delete
cbWSMenuBar.Controls("Alsius").Delete
cbWSMenuBar.Controls("Alsius").Delete
With muClientFilter
.Caption = "&Alsius"
With .Controls.Add(Type:=msoControlButton)
.Caption = "Open CS&V"
.OnAction = "OpenCSV"
.Parameter = ""
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Graph CSV"
.OnAction = "GraphItBaby"
.Parameter = ""
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Activate &Scroll Control"
.OnAction = "OpenControl"
.Parameter = ""
End With
End With
End Sub[/I][/I]
Enybody has an idea what can be the fix for this? I also can't see the add in any,ore as with Excel 2013.
Thanks a lot.
Poultje
Bookmarks