Simple Question About An Error

**Cfallscat** · 11-03-2011, 11:08 PM

So I have this VBA code that is supposed to look through a declared range and add up the values if the cell is equal to a certain value here is the code i have

Private Sub cmdOK_Click()
Dim i As Integer
Dim nRows As Integer
Dim rngLook As Range
Dim sum As Integer


    With Worksheets("Chapter 11 Problem 8").Range("a4")
    Set rngLook = Range(.Offset(0, 0), .End(xlDown))
        nRows = rngLook.Rows.Count
        MsgBox nRows
    End With
    sum = 0
    For i = 1 To nRows
        If rngLook.Cells.Value = 1 Then
        sum = sum + Cells.Value
        End If
    Next i
    
    MsgBox sum
            
End Sub

and when i try to run the sub