Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
apply Macro to all sheets in workbook - loop
Can anybody modify my macro below works on all worksheets in my
workbook (loop) - instead of applying the macro to individual sheets Sub Statement() Range("A1").CurrentRegion.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("D2") _ , Order2:=xlAscending, header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A1").CurrentRegion.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(7), _ Replace:=True, PageBreaks:=False, SummaryBelowData:=True Range("A1").CurrentRegion.Replace What:="SUBTOTAL(9,", Replacement:="sum(", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("A1").CurrentRegion.AutoFormat Format:=xlRangeAutoFormatSimple, Number:=True, Font _ :=False, Alignment:=False, Border:=True, Pattern:=True, Width:=False Columns("G:G").Select Selection.Replace What:="SUBTOTAL(9,", Replacement:="SUM(", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub Thxs |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Apply Conditional Format to all sheets in same workbook | Excel Discussion (Misc queries) | |||
Apply Macro to all worksheets in a workbook except one | Excel Discussion (Misc queries) | |||
how to apply the same header or footer to all sheets in workbook | Excel Worksheet Functions | |||
apply a macro to all sheets except for a certain sheet | Excel Discussion (Misc queries) | |||
Loop through all sheets in workbook | Excel Programming |