Can someone help me loop this macro to each tab?

[andreafeliz]

I want to run this macro for each tab. It sorts the same range A5:H48 on each tab. It is sorted by date range oldest to newest in column A.

Help! Thank you.

Sub LoopTabSort()
'
' LoopTabSort Macro
' Sorts same range A5:H48 on each tab. Cell sorted by date range oldest to newest in column A
'
' Keyboard Shortcut: Ctrl+j
'
ActiveCell.Range("A1:H44").Select
ActiveWorkbook.Worksheets("Adams #1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Adams #1").Sort.SortFields.Add Key:=ActiveCell, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Adams #1").Sort
.SetRange ActiveCell.Range("A1:H44")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-42
End Sub

 

[MARK858]

Untested but try....

Sub LoopTabSort()
    '
    ' LoopTabSort Macro
    ' Sorts same range A5:H48 on each tab. Cell sorted by date range oldest to newest in column A
    '
    ' Keyboard Shortcut: Ctrl+j
    '

    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Sort.SortFields.Clear
        ws.Sort.SortFields.Add Key:=ws.Cells(1, "A"), _
                               SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
                               xlSortTextAsNumbers
        With ws.Sort
            .SetRange ws.Range("A1:H44")
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    Next

End Sub

 

[tygrrboi]

Does this work?

[COLOR=#333333]Sub LoopTabSort()[/COLOR]
[COLOR=#333333]'[/COLOR]
[COLOR=#333333]' LoopTabSort Macro[/COLOR]
[COLOR=#333333]' Sorts same range A5:H48 on each tab. Cell sorted by date range oldest to newest in column A[/COLOR]
[COLOR=#333333]'[/COLOR]
[COLOR=#333333]' Keyboard Shortcut: Ctrl+j[/COLOR]
[COLOR=#333333]'

[/COLOR]Dim S as Worksheet

For each S in ActiveWorkbook.Worksheets

[COLOR=#333333]    S.Sort.SortFields.Clear[/COLOR]
[COLOR=#333333]    S.Sort.SortFields.Add Key:=S.Range("A1"), _[/COLOR]
[COLOR=#333333]    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _[/COLOR]
[COLOR=#333333]    xlSortTextAsNumbers[/COLOR]
[COLOR=#333333]    With S.Sort[/COLOR]
[COLOR=#333333]        .SetRange S.Range("A1:H44")[/COLOR]
[COLOR=#333333]        .Header = xlNo[/COLOR]
[COLOR=#333333]        .MatchCase = False[/COLOR]
[COLOR=#333333]        .Orientation = xlTopToBottom[/COLOR]
[COLOR=#333333]        .SortMethod = xlPinYin[/COLOR]
[COLOR=#333333]        .Apply[/COLOR]
[COLOR=#333333]    End With[/COLOR]
[COLOR=#333333]    ActiveWindow.SmallScroll Down:=-42

[/COLOR]Next S

[COLOR=#333333]End Sub

[/COLOR]

 

[Macropod]

Similarly:

Sub LoopTabSort()
 '
 ' LoopTabSort Macro
 ' Sorts same range A5:H48 on each tab. Cell sorted by date range oldest to newest in column A
 '
 ' Keyboard Shortcut: Ctrl+j
 '
Dim xlWkSht As Worksheet
For Each xlWkSht In ActiveWorkbook.Worksheets
  With xlWkSht.Sort
    .SortFields.Clear
    .SortFields.Add Key:=ActiveCell, SortOn:=xlSortOnValues, _
      Order:=xlAscending, DataOption:=xlSortTextAsNumbers
    .SetRange ActiveCell.Range("A5:H48")
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
Next
End Sub

Note: You refer to "range A5:H48 on each tab" but the code you posted refers to A1:H44. You need to sort that out (no pun intended) - I've opted for A5:H48.

 

[andreafeliz]

Awesome thank you so much.