On Mar 27, 6:10 pm, "Bob Phillips" wrote:
Application.WorksheetFunction.Sum(Range(Cells(last Row,
currentCol),Cells(startRow, currentCol)))

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

wrote in message

ups.com...



I'm trying tosumpart of columns by looping - I'm struggling to find
a way tosumtherangeusingthecellsreference,notrange:

finalrow =Range("A65000").End(xlUp).Row
totalRow = 0
startRow = 2
currentCol = 4
Do Until totalRow = finalrow
totalRow = totalRow + 1
lastRow = totalRow - 1
If currentCol < 21 Then
IfCells(totalRow, 21).Value = "" Then

problem --- Cells(totalRow, 4).Value =
Application.WorksheetFunction.Sum(Cells(lastRow, currentCol),
Cells(startRow, currentCol))

currentCol = currentCol + 1
End If
End If
Loop- Hide quoted text -

- Show quoted text -

Bob,
Thanks - that worked perfect!!
Richard