Specific rows and columns sort in multiple worksheets excel 2013

[jlr123]

I have specific rows and columns I need to sort on multiple worksheets. Columns A:O and rows 1-126. Can you help me with vba code to run?

 

[KennyGreens]

We'll need more information. Is every sheet being sorted the same exact way with the same columns and rows? Are there some sheets you don't want to sort at all? Which column are you sorting by? Do you want it ascending or descending?

 

[jlr123]

Sheets ESL SVC JM:WCH Hoppy

Same rows and columns each sheet.

Thanks very much.

 

[jlr123]

And sorting by column B- Alpha numeric

 

[KennyGreens]

You could try something like this (although truthfully I don't fully understand what you mean by "sheets JM:WCH"):

Sub sort_sheets()

Dim i As Integer
Dim snames As Variant

snames = Array("ESL", "SVC", "JM WCH", "Hoppy")

For i = 1 To Sheets.Count
    If IsNumeric(Application.Match(Sheets(i).Name, snames, 0)) Then
        Sheets(i).Range("A1:O126").Sort key1:=Sheets(i).Range("B1:B126"), order1:=xlAscending, Header:=xlNo
    End if
Next
End Sub

 

[jlr123]

What I mean by "sheets" is all worksheets between and counting first and last- the first worksheet "ESL SVC JM" and last worksheet "WCH Hoppy"

 

[KennyGreens]

What I mean by "sheets" is all worksheets between and counting first and last- the first worksheet "ESL SVC JM" and last worksheet "WCH Hoppy"

I see, if that is the case, something like this should work:

Sub sort_sheets()


Dim i As Integer
Dim startTab As Long
Dim endTab As Long


startTab = Sheets("ESL SVC JM").Index
endTab = Sheets("WCH Hoppy").Index


For i = startTab To endTab
    Sheets(i).Range("A1:O126").Sort key1:=Sheets(i).Range("B1:B126"), order1:=xlAscending, Header:=xlNo
Next
End Sub

 

[jlr123]

Hurrah! Thanks so much.