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