I have a column of checkboxes in one template sheet (when checked they are true, unchecked = false) I want to make a running tally in a tracking sheet of all the trues that are recorded over time in the template sheet.

I can't for the life of me get a running tally to work.

My code right now (below) only copies the true or false to a column in the tracking sheet. I have a formula to count if true giving me a column with either a 1 or a 0 in the cells.

I need it to tally everytime a 1 occurs so I can track that over the months.

Any code suggestions

Range("h22:h26,h36:h43,h47:h48").Select
Selection.Copy
Workbooks.Open ("W:\2006 QA\Wall QA\Audit Templates\tracking.xls")
Sheets("data").Select
Range("f5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close

This copies and pastes but I think there is a better way.

Thank you in Advance