Sorting VBA

[Excelnoobisme]

Hi,

i have 50 tabs of spreadsheet and i wish to sort all column G from the smallest to largest by VBA. is it possible? Not through grouping

 

[Ruddles]

Try this on a copy of your workbook:-

Option Explicit
 
Sub SortEmAll()
    
  Dim ws As Worksheet
  
  For Each ws In ThisWorkbook.Worksheets
    With ws.Sort
      .SortFields.Clear
      .SortFields.Add Key:=Range("G1"), Order:=xlAscending
      .SetRange Range("G:G")
      .Header = xlNo
      .Apply
    End With
  Next ws
  
End Sub