Apply VBA to Select Worksheets

[lcmilkbone]

Hi All,
I'm attempting to apply the below code to 26 out of the total 35 sheets. I can't seem to figure it out. Currently the macros is setup to apply to all sheets but I need to either edit it to exclude the eight tabs that it will not apply to, or edit it to apply to the 26 sheets themselves. I do plan on hiding the 26 tabs as they feed into a summary sheet so would this affect the formula?

For context, in each worksheet that requires the sort, columns B to Q have data and I'm sorting by ticker in column C (ascending). Any thoughts here would be greatly appreciated.

Thanks!

Sub SortAllSheets()

  Dim WS As Worksheet
  ActiveSheet.Range("B1:Q1").Select
  Selection.Copy
  On Error Resume Next
  Application.ScreenUpdating = False
  For Each WS In Worksheets
    WS.Range("B2:Q500").Sort Key1:=WS.Columns("C"), Order1:=xlAscending
  Next WS
 
End Sub

 

[lcmilkbone]

I will also mention that each of the 26 worksheets that require sorting all contain the same number of columns (B:Q) and same header row (2). The only difference is the number of total rows - as each worksheet is for an investment account so each worksheet may have 80-150 rows.

 

[jolivanes]

Try

Sub Maybe()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        Select Case ws.Name
            Case "Sheet1", "Sheet2", "Sheet5", "Sheet8"    '<---- Excluded sheet names. Extend as needed
                Case Else
            ws.Range("B2:Q" & ws.UsedRange.Rows.Count).Sort Key1:=ws.Columns("C"), Order1:=xlAscending
         End Select
    Next ws
End Sub