An easy one - sums across worksheets

[bend01]

I am adding up the same cell on 18 different worksheets within one workbook (there are some worksheets not included in the sums). Is there a quick way of doing this? I have done quite a few so far and have a lot more to go! It is getting a little repetitive as you can imagine?

Your help as alsways is appreciated.

 

[Lewiy]

This macro will sum the values of B1 on every sheet in the workbook and place it in cell A1 on Sheet1. Does that help you at all?

Sub SumSheets()
Dim sh As Worksheet
Dim wb As Workbook
Set wb = ThisWorkbook
For Each sh In wb.Worksheets
    Sheets("Sheet1").Range("A1") = Sheets("Sheet1").Range("A1") + sh.Range("B1")
Next sh
End Sub

 

[Traveler]

I found this little tid bit a while back, it is a very interesting way to do it and may work for you.

http://www.ozgrid.com/News/excel-validation-tips.htm

 

[bend01]

Ron,

Excellent - thank you.

That has been a huge help.