Do loop - sum up loops together

[Alpacino]

How do u write a code so that each time it loops through a statement it adds it up depending on the number of loops.

Eg I want to count the number of times H appears in cells in sheets 1 to 12

Application.worksheetfunction.countif(sheets(x).range("C4:AK4"),"H")

I want to loop this 12 times each time sheet x from 1 to 12 add values together at the end.

Thanks in advance

 

[Scott Huish]

You don't need a Do Loop. You need a For Next Loop:

Sub test()
Dim x As Long, y As Long
For x = 1 To 12
    y = y + Application.WorksheetFunction.CountIf(Sheets(x).Range("C4:AK4"), "H")
Next x
MsgBox y
End Sub

 

[p45cal]

For x = 1 To 12
    y = y + Application.WorksheetFunction.CountIf(Sheets(x).Range("C4:AK4"), "H")
Next x
MsgBox y

 

[VoG]

Maybe

asum = 0
For x = 1 To 12
    asum = asum + WorksheetFunction.CountIf(Sheets(x).Range("C4:AK4"), "H")
Next x

 

[Scott Huish]

You shouldn't need the asum=0 line. If you dim the variable as Long, it will automatically intialize the value to 0.

 

[VoG]

You shouldn't need the asum=0 line. If you dim the variable as Long, it will automatically intialize the value to 0.

Caution on my part in case the variable was reused

 

[Alpacino]

Thanks peeps