Error 20 after a match function

[SeniorTom]

After a successful match I get the row number and move to the else statement, but somehow I'm getting an error 20. My search indicates I have a resume outside an error handling
routine. I just don't see it. Your insight is appreciated.

On Error Resume Next ' if they didn't respond we get an error, so go to next member

For Each Player In Members
' goes through each active member
PlayerRow = WorksheetFunction.Match(Player, .Range("ActiveMembers"), 0) + 5 ' +5 is for the header

' Check if this person responded, if not, error generated so move on to next person
matchRow = WorksheetFunction.Match(Player, w1.Range("ResponseNames"), 0) ' location of response file
If Err.Number = 1004 Then
Resume Next ' didn't find him in response
matchRow = 0
GoTo DidntRespond

Else
' He wants to play
End If
Debug.Print Err.Number 'Getting 20
Debug.Print Err.Description ' Resume without error
.
.
.
More code

 

[SeniorTom]

Go it. Used err.clear instead of "Resume next"