VBA | Advanced Filter | Run time error 1004 method range of object worksheet failed

[williakm1013]

I have modified code from a workbook developed by Contextures. I am getting a run time error on the following code:

Option Explicit
' Developed by Contextures Inc.
' www.contextures.com
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCrit As Range

Set rngCrit = wksCrit.Range("CriteriaRng")
Application.EnableEvents = False

Select Case Target.Address
    Case Range("SelCat").Address
        rngCrit.Cells(2, 1).Value = Target.Value
    Case Range("SelActor").Address
        rngCrit.Cells(2, 2).Value = Target.Value
End Select

If Range("SelCat").Value = "" Then
    rngCrit.Cells(2, 1).ClearContents
End If
If Range("SelActor").Value = "" Then
    rngCrit.Cells(2, 2).ClearContents
End If

If Not rngCrit Is Nothing Then
  wksMovies.Range("MovieList").AdvancedFilter _
    Action:=xlFilterCopy, _
      CriteriaRange:=rngCrit, _
      CopyToRange:=Range("ExtractMovies"), Unique:=False
End If

exitHandler:
    Application.EnableEvents = True
    Exit Sub
errHandler:
    Resume exitHandler

End Sub

The line in red is where the error is occurring. Error number 1004: Method range of object _worksheet failed. I have attached a modified version of my workbook. I think that I have referenced something incorrectly, but I am not sure where to fix it.

Any help is greatly appreciated.