Excel 2016中自定义function区工具错误的VBA代码

下面的代码在Excel 2013和之前版本中完美工作 ，但在安装Excel 2016（通过Office 365订阅）并打开我的工作簿之一与自定义function区工具时，我得到一个“无法find库”错误。 （没有遗漏的参考）

这里是一个示例Sub（function区中的下拉控件）popup错误的地方。 该错误是在呼叫，它不像returnedVal。

'Callback for rxdrdnAcctName onAction Sub rxdrdnAcctName_Click(control As IRibbonControl, id As String, index As Integer) On Error Resume Next Call rxDropDownItemLabel(control, index, returnedVal) Sheets("Tables").Range("AcctNametoPlot").Value = returnedVal If Err.Number <> 0 Then LogError(Now & "...RibbonTool--> " & Err.Description) End If End Sub 

这是子调用的代码

 'Callback for rxdrdnAcctName getItemLabel Sub rxDropDownItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal) Dim varItems As Variant If (control.id = "rxdrdnAcctName" Or control.id = "rxdrdnNewAcctName") Then varItems = ThisWorkbook.Sheets("Tables").Range("SortedAcctList").Value ElseIf (control.id = "rxdrdnYear" Or control.id = "rxdrdnNewAcctYear") Then varItems = ThisWorkbook.Sheets("Tables").Range("YearsList").Value ElseIf control.id = "rxdrdnMonth" Then varItems = ThisWorkbook.Sheets("Tables").Range("MonthNames").Value ElseIf control.id = "rxdrdnCommod" Then varItems = ThisWorkbook.Sheets("Tables").Range("CommodityPLNamesList").Value ElseIf control.id = "rxdrdnSheetSelectName" Then varItems = ThisWorkbook.Sheets("Tables").Range("AllSheetsNames").Value End If returnedVal = varItems(index + 1, 1) End Sub 

Excel 2016（用于定制function区）中的哪些内容已经破坏了这些代码？