Issue with Formula

HI
try this modified macro

sub total()
dim a,b as integer
Range("A1:A31).clearcontents
for b =  4 to 34
for a = 1 to sheets.count
cells(b-3,1) = cells(b-3,1) + worksheets(a).cells(11,3)
next a
next b
end sub

Ravi

Hi,

Thanks for that; however, I have a syntax error on the following line:

Range("A1:A31).clearcontents

Any thoughts?

youve just missed " mark after the second cell value