Pass array of sheet names to another procedure

[FryGirl]

In lieu of placing the array of sheets within the two procedures below, how can I use a third procedure to establish the array of sheets and then pass that argument?

Sub ApplyAutofilter()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4"))
        ws.Range("A1").AutoFilter 1, Sheet5.Range("K4")
    Next
End Sub

Sub TurnOffAutoFilter()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4"))
        ws.AutoFilterMode = False
    Next
End Sub

 

[mikerickson]

You could create a UDF that returns a Sheets object

Function MyKeyWorksheets() As Sheets
    Set MyKeyWorksheets = ThisWorkbook.Worksheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4"))
End Function

Sub TurnOffAutoFilter()
    Dim ws As Worksheet
    For Each ws In MyKeyWorksheets
        ws.AutoFilterMode = False
    Next
End Sub

 

[FryGirl]

That is great Mike. Thank you.