Sub SortByBColumn() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Range("A1").CurrentRegion.Sort _ Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes Next End Sub
Sub SortByBColumn() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Range("A1").CurrentRegion.Sort _ Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes Next End Sub