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)

Arne,

There is no 0th column:

str = oFxOptionsFile.Cells(i, 0)

should be (for column A)
str = oFxOptionsFile.Cells(i, 1)


for column B:
str = oFxOptionsFile.Cells(i, 2)

HTH,
Bernie
MS Excel MVP


"Arne Hegefors" wrote in message
...
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)