Macro to subtotal all sheets please help

[roberttkim]

Hey everyone,

I was wondering if someone knew how to code a macro that totals columns d through z on several worksheets that have various numbers of rows. Each sheet has the same number of columns but different numbers of rows. I could really use the help please.

 

[hgufrin]

Disregard my previous post... Got this to work. Thanks

For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ws.Columns("A:K").Select
Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(3, 4), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Columns("C:D").Select
Range("D1").Activate
Selection.Style = "Currency"
Columns("F:F").EntireColumn.AutoFit
Columns("A:A").EntireColumn.AutoFit
ActiveSheet.Outline.ShowLevels RowLevels:=2