I have code to enter 0 or 1 in column H. When code
finishes I would like to add all values in column H and
place in Cell A1. How can I do this?

One way

Sub test()
Sheets("Sheet1").Range("A1").Value = _
Application.WorksheetFunction.Sum(Range("H:H"))
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"ChrisG" wrote in message ...
I have code to enter 0 or 1 in column H. When code
finishes I would like to add all values in column H and
place in Cell A1. How can I do this?

Thanks, I see.

-----Original Message-----
One way

Sub test()
Sheets("Sheet1").Range("A1").Value = _
Application.WorksheetFunction.Sum(Range("H:H"))
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"ChrisG" wrote in
message ...
I have code to enter 0 or 1 in column H. When code
finishes I would like to add all values in column H and
place in Cell A1. How can I do this?


.