summing

[ChrisG]

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?

 

[Ron de Bruin]

One way

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

 

[ChrisG]

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)




"ChrisG" <[email protected]> wrote in

message news:[email protected]...