WorksheetFunction.Sum returning zero for numbers

Clean up your code, kiddies. After much wailing and gnashing of teeth, the problem turned out to be the extra parentheses I had in my .Sum arguments. Big thanks to @BigBen and @JvdV.

The Problem: Worksheetfunction.Sum returns a sum of 0 for a dynamic range, but only for rows.count > 1 and only for currency-formatted reference data.

More Detail: I have a userform set up to scrape a reference workbook and return a different number into each of four different textboxes based on user input. On occasion the numbers will need to be a sum of several rows on the reference workbook. Using my code below, this works like a dream for every return textbox as long as the number of rows is 1, but returns 0 (or $0.00 as it were) for anything else. However, it works just fine in all circumstances for the one sum that is just an integer. The rest are formatted as currency.

내가 한 일 : MsgBoxes를 사용하여 동적 범위가 올바른 주소, 즉 합계를 원하는 모든 셀을 반환하고 해당 주소의 숫자가 텍스트가 아니라 실제로 숫자인지 확인했습니다 (IsNumber에 대한 True 반환으로 확인 됨). . .Subtotal 및 .Aggregate를 사용하여 도움이 될 수 있는지 확인했지만 누락 된 개체 및 기타 오류가 발생하여 VBA를 처음 사용했기 때문에 엉뚱한 소리를 냈습니다.

코드:

내 기본 논리는 다음과 같습니다. textbox.value에 대한 모든 참조 (csrWorkbook) 시트에서 검색합니다. 발견되면 병합 된 영역의 높이를 측정합니다 (내가 알고 있지만 병합 결정은 내 급여보다 높음). 4 개의 다른 관련 수량을 찾으려면 오른쪽으로 오프셋하십시오. 여러 행이있는 경우이 수량을 합산하십시오. 합계를 4 개의 다른 텍스트 상자로 반환합니다.

도움!

    Private Sub ScrapeButton_Click()

    'Enter search term into first TB
    'click search button
    'result DOES(!!) appear in second TB

    'Variables
    Dim csrWorkbook As Workbook
    Dim refWorkbook As Workbook
    Dim refVariables As Worksheet
    Dim csrFilePath As String
    Dim csrFileName As String
    Dim slinAddress As String
    Dim ws As Worksheet
    Dim sheetCount As Long
    Dim rowCount As Long
    Dim slinCell As Excel.Range
    Dim quantCells As Excel.Range
    Dim costCells As Excel.Range
    Dim feeCells As Excel.Range
    Dim totalCells As Excel.Range
    Dim i As Integer
    Dim iCost As Double
    Dim iFee As Double
    Dim iTotal As Double


    Set refWorkbook = Workbooks("AutomationBackbone.xlsm")
    csrFileName = refWorkbook.Sheets("Variable Storage").Range("A2").Value
    Set csrWorkbook = Workbooks(csrFileName)

    sheetCount = csrWorkbook.Sheets.Count

    'search all worksheets for data in a known column
    For i = 1 To sheetCount
        Set slinCell = csrWorkbook.Sheets(i).Range("C1:C100").find(Me.TextBox1.Value)
            If Not slinCell Is Nothing Then

                'Find sums and populate
                rowCount = slinCell.MergeArea.Rows.Count 'count the number of rows in merged area
                Set quantCells = slinCell.Offset(0, 2).Resize(rowCount, 1) 'establish a new range of that same height
                Set costCells = quantCells.Offset(0, 6)
                Set feeCells = quantCells.Offset(0, 7)
                Set totalCells = quantCells.Offset(0, 8)

                Me.iQuantityTB.Value = Application.WorksheetFunction.Sum((quantCells)) 'populate the Initial Quantity
                iCost = Application.WorksheetFunction.Sum((costCells)) 'find sum of Cost range
                iFee = Application.WorksheetFunction.Sum((feeCells)) 'find sum of Fee range
                iTotal = Application.WorksheetFunction.Sum((totalCells)) 'find sum of Total range

                Me.iCostTB.Value = iCost 'populate textboxes
                Me.iFeeTB.Value = iFee
                Me.iTotalTB.Value = iTotal

'original code commented out to see if being more explicit helped.
     'Narrator: it didn't
                'Me.iCostTB.Value = Application.WorksheetFunction.Sum((quantCells.Offset(0, 6))) 'populate the Initial Cost
                'Me.iFeeTB.Value = Application.WorksheetFunction.Sum((quantCells.Offset(0, 7))) 'populate the Initial Fee
                'Me.iTotalTB.Value = Application.WorksheetFunction.Sum((quantCells.Offset(0, 8))) 'populate the Initial Total

                Exit Sub
            End If
        Next i
    End Sub

Edit: Pics added for clarity.