This is my code below:

Code:
 Function searchdata()

        Dim objBooks As Excel.Workbooks
        Dim objsheets As Excel.Sheets
        Dim objsheet As Excel.Worksheet
        Dim range As Excel.Range

        'create a new instance of Excel and start a new workbook
        objApp = New Excel.Application
        objBooks = objApp.Workbooks
        objBook = objBooks.Add
        objsheets = objBook.Worksheets
        objsheet = objsheets(1)

        'get the range where the starting cell has the address
        'm_sStartingCell and its dimensions are m_iNumRows x m_iNumCols
        range = objsheet.Range("Q2", "AC5001")

        a = 0
        b = 1
        r = 2 'row
        Do
            Do
                If aclient(a) <> "" And aport(b) <> "" Then
                    Do
                        If aclient(a) = objsheet.Range("ABr").Value And portnum(b) = objsheet.Range("Qr").Value Then
                            bytes(a, b) = ((bytes(a, b) + objsheet.Range("Zr").Value))
                        Else
                            r += 1
                        End If
                    Loop Until objsheet.Range("ABr").Value = "null"
                End If
                b += 1
                r = 2
            Loop Until b = 6
            a += 1
            b = 1
            r = 2
        Loop Until a = 10
    End Function
I dont want to create a new spreadsheet. I want to open an existing spreadsheet. Where and how do i do this?