Functions Chr, UBound - Can't find project or library

Originally Posted by cytop

Wrong - references are set per workbook.

If there is nothing marked as 'MISSING' in the References dialogue then upload a copy of the workbook - data probably not needed, just the code.

Oh ok. I see same set of references in all my workbooks, so I developed a wrong belief.
Anyway, I see exactly the same set of references in the other workbook as well. Would you know what else could be causing this issue?

Here's the main code. Not sure if it'd help. The nested functions are one-liners saving values form excel sheet to variables.

Sub RunBacktest()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Cursor = xlWait
Application.DisplayStatusBar = True

Dim j As Variant

'Set up the parameters
Set options = New BTOptions
Call LoadParameters

' Dim i As Integer
' ReDim timeHorizons(options.TimeHorizonLength + 1)
' For i = 1 To UBound(timeHorizons)
' timeHorizons(i) = options.timeHorizon(i - 1)
' Next i
Dim i As Integer
ReDim timeHorizons(options.TimeHorizonLength)
For i = 0 To UBound(timeHorizons)
timeHorizons(i) = options.timeHorizon(i)
Next i


'Set Conn_sensitivities = ConnectDB(options.SensitivityFile)

Dim ws As Worksheet
Dim ilog As Integer: ilog = 3
Set ws = ThisWorkbook.Worksheets("Log File")
ws.Cells.Clear
ws.Cells(1, 1) = "Sensitivity COBs not working"
ws.Cells(2, 1) = "Id"
ws.Cells(2, 2) = "CptyId"
ws.Cells(2, 3) = "COBDate"

Set Descriptions = LoadPfDescriptions(options)


Dim names As String
Dim types As String
Dim marginPeriods As String
names = Chr(34) & Descriptions(1).portfolioId & Chr(34)
types = Chr(34) & Descriptions(1).PFType & Chr(34)
marginPeriods = Descriptions(1).marginPeriod
For i = 2 To Descriptions.Count()
names = names & "," & Chr(34) & Descriptions(i).portfolioId & Chr(34)
types = types & "," & Chr(34) & Descriptions(i).PFType & Chr(34)
marginPeriods = marginPeriods & "," & Descriptions(i).marginPeriod
Next i
options.names = names
options.types = types
options.marginPeriodsCpty = marginPeriods



For i = 1 To Descriptions.Count()
Call BacktestPf(Descriptions(i), ws, ilog)
Next i

'Call R
RunR

Application.Cursor = xlDefault
Application.StatusBar = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Hi,

I cannot believe this is not a reference error because I have never seen any other cause for it.

Make sure you have the correct workbook active in the VB Editor (you might close all other workbooks to make sure), then list all the references that are selected.