Macro across books

[hammondc]

Yaaay, first post! I have a workbook with about 40 sheet in it. I have created a macro to add a certain group of numbers in each of 650 rows . Then it adds the total from each row for a grand total. Is there a way to do this macro across all 35 sheets at one time? If I use ctrl to select all the sheets, The macro will not work correctly.

 

[Norie]

Could you post the macro you currently have? And an explanation of what exactly it is supposed to do.

Generally to go through every worksheet in a workbook you can use something like this:

Dim wb As Workbook
Dim ws As Worksheet
      
     Set wb = ActiveWorkbook
     
     For Each ws in wb.Worksheets
          ' do something with worksheet ws
     Next ws

 

[headtoadie]

this might give you a place to start.

Option Explicit
Dim x As Integer
Dim sheet As Worksheet
Sub SumSheets()
    For Each sheet In Sheets
        x = x + Application.WorksheetFunction.Sum(sheet.Range("A1:A650"))
    Next
    Sheet1.Cells(1, 2).Value = x
End Sub

HT