Apply filters to specific range

Apply filters to specific range; includes optional
worksheet parameter.
Author: michael@excelexperts.co.uk

Sub Filters_Apply(Rng As String, Optional ws As String)

    If ws <> "" Then
        With Worksheets(ws)
            .AutoFilterMode = False
            .Range(Rng).AutoFilter
        End With
    Else
        With ActiveSheet
            .AutoFilterMode = False
            .Range(Rng).AutoFilter
        End With
    End If

End Sub