Error 13 en tiempo de ejecución

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("CODIGO")) Is Nothing Then
If WorksheetFunction.IsNumber(Range("CODIGO").Value) Then                   aqui aparece el error
ActiveSheet.Range("Tabla2").AutoFilter Field:=3, Criteria1:="=*" & Range("NOMBRE") & "*"
FOTO = Range("MIFOTO") & Range("CODIGO").Text & ".jpg"
Fotografia.Picture = LoadPicture(FOTO)
Else
ActiveSheet.Range("Tabla2").AutoFilter Field:=2, Criteria1:="=*" & Range("CODIGO") & "*"
NOFOTO = Range("sinFoto").Text
Fotografia.Picture = LoadPicture(NOFOTO)
End If
End If

End Sub

Me podrían ayudar con este problemita enviando a mi email [email protected]