Macro filters identical columns into selected worksheets

[K0st4din]

Hello, everyone,
please help with your help.
I found this macro that filters through a selected column, but I do not know how to add it to many selected worksheets, I have in the past - Array("Ivan todorov", "Petko Georgiev", etc.)

Sub filter()
Application.ScreenUpdating = False
Columns("A:F").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
Application.ScreenUpdating = True
End Sub

I ask for your cooperation.
Thank you in advance

 

[kanadaaa]

I (personally) don't really understand what you want to do.
Your code just brings the values in row 2 up to row 1.
And what do you mean by "add it to many selected worksheets"? Is it that you want to run the macro on different worksheets?
In addition, what do you want to do with the strings you've mentioned?

 

[MARK858]

Your code just brings the values in row 2 up to row 1.

It sorts the range based on column E from E2 descending, it doesn't do any filtering though.

 

[footoo]

Filter?
Your code is for Sort.

Does the code you posted work?

 

[K0st4din]

Hi, the macro is working. Sort(no filter, this is a an accidental mistake) in column E from largest to smallest. The macro works for one worksheet, and for example I have 20 which are 100% identical in structure and I want to insert - Array (with the names of certain worksheets)

 

[MARK858]

Array (with the names of certain worksheets)

What sheet names? and please you are sorting not filtering (they are 2 different things).

 

[K0st4din]

I will write the sheet, but for example - Array("ivan petkov", "Todor Iwanov", ect to the end)

 

[MARK858]

One way (untested)

Sub filter()
    Application.ScreenUpdating = False
    Dim ws As Worksheet, wsArr

    wsArr = Array("ivan petkov", "Todor Iwanov")

    For Each ws In Sheets(wsArr)

    
        ws.Columns("A:F").Sort Key1:=ws.Range("E2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    
    Next
    
    Application.ScreenUpdating = True
End Sub

 

[K0st4din]

One way (untested)

Sub filter()
    Application.ScreenUpdating = False
    Dim ws As Worksheet, wsArr

    wsArr = Array("ivan petkov", "Todor Iwanov")

    For Each ws In Sheets(wsArr)

   
        ws.Columns("A:F").Sort Key1:=ws.Range("E2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
   
    Next
   
    Application.ScreenUpdating = True
End Sub

Thank you so much.
It is for this help that I have asked you and I am very grateful.
Once again I want to apologize for filtering and sorting.
It is not intentionally written.