harrisrs24370
New Member
Hello...can anyone help me figure out what I need to add to this macro in order to loop it across multiple worksheets? Here's my macro:
Sub CouponTest()
'
' CouponTest Macro
'
' Keyboard Shortcut: Ctrl+x
'
Sheets(Array("605", "606", "607", "608")).Select
Sheets("605").Activate
ActiveWindow.SmallScroll Down:=-9
Range("F13").Select
Sheets("605").Select
Range("D1").Select
ActiveWindow.SmallScroll Down:=162
Range("D166").Select
ActiveWindow.SmallScroll Down:=-183
Range("D1").Select
ActiveCell.FormulaR1C1 = "Desc"
Range("A1:H179").Select
ActiveWindow.SmallScroll Down:=-171
ActiveWorkbook.Worksheets("605").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("605").Sort.SortFields.Add Key:=Range("D2:D179"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("605").Sort
.SetRange Range("A1:H179")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-3
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveWindow.SmallScroll Down:=-87
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D4").Select
Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(8), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("C11").Select
ActiveSheet.Outline.ShowLevels RowLevels:=2
Range("D48").Select
ActiveWindow.SmallScroll Down:=-21
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = True
Columns("E:G").Select
Range("E2").Activate
Selection.EntireColumn.Hidden = True
Range("L26").Select
Columns("D:D").EntireColumn.AutoFit
Range("J58").Select
End Sub
Sub CouponTest()
'
' CouponTest Macro
'
' Keyboard Shortcut: Ctrl+x
'
Sheets(Array("605", "606", "607", "608")).Select
Sheets("605").Activate
ActiveWindow.SmallScroll Down:=-9
Range("F13").Select
Sheets("605").Select
Range("D1").Select
ActiveWindow.SmallScroll Down:=162
Range("D166").Select
ActiveWindow.SmallScroll Down:=-183
Range("D1").Select
ActiveCell.FormulaR1C1 = "Desc"
Range("A1:H179").Select
ActiveWindow.SmallScroll Down:=-171
ActiveWorkbook.Worksheets("605").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("605").Sort.SortFields.Add Key:=Range("D2:D179"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("605").Sort
.SetRange Range("A1:H179")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-3
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveWindow.SmallScroll Down:=-87
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("D4").Select
Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(8), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("C11").Select
ActiveSheet.Outline.ShowLevels RowLevels:=2
Range("D48").Select
ActiveWindow.SmallScroll Down:=-21
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = True
Columns("E:G").Select
Range("E2").Activate
Selection.EntireColumn.Hidden = True
Range("L26").Select
Columns("D:D").EntireColumn.AutoFit
Range("J58").Select
End Sub