You have to use userdefined function to make it simple.



Function sum_sh_range(r As Range)

Dim s As Variant
s = 0
Dim w As Worksheet
For Each w In Worksheets
w.Select
s = s + w.Range(r.Address).Value
Next

sum_sh_range = s
End Function

You have to paste the above code in vba module.

you can call the function as formula from any cell by using
=sum_sh_range(b6)


--
anilsolipuram
------------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...o&userid=16271
View this thread: http://www.excelforum.com/showthread...hreadid=381020