VBA Macro for filtering on multiple set criteria

[drewberts]

I'm using the code below which is assigned to a button to filter based on a list of criteria. I'm getting an error when running and I can't see my problem:-

Public Sub cmdLiveJobs_Click()
    ActiveSheet.ListObjects(1).AutoFilter.ShowAllData
    Application.ScreenUpdating = False
    
        Range("E8:E10000").CurrentRegion.AutoFilter _
        Field:=5, Criteria1:=Array("JOB RAISED", "PROGRAMMED", "FIELD", "OFFICE", "DELIVERED", "INVOICED"), Operator:=xlFilterValues
    
    ActiveWindow.ScrollRow = 1
    Application.ScreenUpdating = True
    Calculate
End Sub

Can anyone point out the obvious error (assuming its obvious, because I cant see it)?

 

[JustynaMK]

Hi drewberts,

Nope, it's not that obvious I tried to run your code on a small subset of data and it works perfectly fine. Would be helpful if you could describe what kind of error message you are receiving and maybe even share your file.

 

[drewberts]

Thanks for the reply

The data is fairly sensitive so I can't share it but the following is the error I get

 

[JustynaMK]

Thanks drewberts.

One more request - could you please go to VBA, Immediate Window (Ctrl+G), paste the following code:
?ActiveSheet.ListObjects(1).Range.Address

And then hit Enter and let me know the results?