Untitled

Function ReadFileFromPath(ByVal FullPath As String, ByRef DateStr As String, ByRef DollarStr As String) As String()

    'MsgBox FullPath

    Dim Book As Workbook
    Set Book = Workbooks.Open(FullPath, , True)

    Dim Sheet As Excel.Worksheet

    Set Sheet = Book.ActiveSheet

    'Take date
    'Dim DateStr As String
    'Take Dollar
    'Dim DollarStr As String
    'fake param
    Dim OD As Integer
    OD = 1
    Do While Not (Sheet.Cells(OD, 1) Like "Week*")
        OD = OD + 1
    Loop
    DateStr = GlueDollarAndDate(Sheet.Cells(OD, 1))
    DollarStr = TakeDollarWithParams(GlueDollarAndDate(Sheet.Cells(OD, 1)))
    'MsgBox DateStr
    'MsgBox DollarStr


    'offset by I - raw and J - column
    Dim i As Integer
    i = 1
    Dim J As Integer
    J = 1

    Do While Sheet.Cells(i, 1) <> "Reference Entity"
        i = i + 1
    Loop


// ------PROBLEM----------//
    Do While Sheet.Cells(i, J) <> "Contracts"  // <<------------- HERE---------<<<
        J = J + 1
    Loop


// ------PROBLEM---------//
    'max raw

    Dim LI As Integer
    LI = i

    Do While (Sheet.Cells(LI, 1) <> "")
        LI = LI + 1
    Loop
    LI = LI - 1

    'MsgBox LI

    Dim ListOfNames() As String
    ReDim ListOfNames(1 To J)

    Dim II As Integer
    Dim JJ As Integer

    For II = 1 To J
        ListOfNames(II) = Sheet.Cells(II, J)
    Next II


    'Matrix of Data, will have a dim as ()
    Dim DataMatrix() As String
    ReDim DataMatrix(1 To LI - i, 1 To J)


    For II = i + 1 To LI
        For JJ = 1 To J
                DataMatrix(II - i, JJ) = Sheet.Cells(II, JJ)
            Next JJ
    Next II
    'MsgBox DataMatrix(LI - i, J)
    Book.Close
    Set Book = Nothing
    Set Sheet = Nothing

    ReadFileFromPath = DataMatrix

End Function