Hi Rav,

Just to confirm would the following be correct:

sub total()
dim a as integer
cells(1,1) = ""
for a = 1 to sheets.count
cells(1,1) = cells(1,1) + worksheets(a).cells(11,3) + worksheets(b).cells(11,3) and so on.....
next a
end sub
Thanks