AutoFilter Enable

Hi there,

Try:

Sub wsProtect()

    Sheets("Sheet1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub