Sort Multiple Sheets with Macro Loop

    Hello All,


    I am trying to sort every worksheet that I have in a workbook with a few hundred sheets. Basically I want to filter every sheet descending based on the value in column B5 down. If I only had to do it once the process would be, apply filter across row 3 sort column B descending and then take off the filter.


    An example of the before would be Sheet1 and the after would be Sheet1 Result, Sheet2 and Sheet2 Result.


    I have attached an example file in the hopes that you can help.


    Thank you!

    Re: Sort Multiple Sheets with Macro Loop


    Here is the code.let me know if it helps!


    Code
    Sub M()


    For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    ws.Range("B4", Range("B" & Rows.Count).End(xlUp).Address).Sort Key1:=[b4], _
    Order1:=xlDescending, Header:=xlYes
    Next ws
  
End Sub

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login