Hi! I have a sub that opens a workbook. I then try to read values from this
workbook. However I get the error: 1004 Program or obect defined error at the
very end of the code. What is wrong here? Please help me out!

Public Sub readFile() 'secID As String
Dim i As Integer
Dim j As Integer
Dim iNrOfIns As Long
Dim secID As String
secID = "Hej på dig"
Dim str As String
Workbooks.Open "X:\SCD_RiskManager_Pos\RMDBII\test.xls"
Workbooks("test.xls").Activate
Dim oFxOptionsFile As Object
Set oFxOptionsFile =
Workbooks(ActiveWorkbook.Name).Sheets(ActiveSheet. Name)

oFxOptionsFile.Range("A2").Activate
iNrOfIns = oFxOptionsFile.Range(ActiveCell,
ActiveCell.End(xlDown)).Rows.Count




For i = 2 To 10
str = oFxOptionsFile.Cells(i, 0)