Question: I've one simple jmeter login script for negative scenarios which takes invalid login and password.

It gives JSON response as 
 {
 "status": 401,
 "error": "unauthorised",
 }

The above response is expected.

I've also added the JSON Path Assertion to verify the status code as 401 which validates correctly

Now my target is if I run the test it should pass however its coming as fail status.
Sampler result shows as below

```
  Sample Count: 1
  Error Count: 1

```

How I can make it pass? Is it possible or not?

Answer: 
Use this, change the `LookIn` argument to `xlValues` instead of `xlFormulas`:

```
Selection.Find(What:="#REF!", After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

```

For a bit cleaner implementation:

```
Dim sht as Worksheet
Dim rngSrch as Range
Dim rngErr as Range

Set sht = Sheets("Location_Multiple")
Set rngSrch = sht.Range("A1:AL10000")

Set rngErr = rngSearch.Find(What:="#REF!", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)

If Not rngErr Is Nothing Then
    'Do something to the offending cell, like, highlight it:
    rngErr.Interior.ColorIndex = 39
End If

```

Anticipating there may be multiple cells with an error like this, you'll probably have to implement your `.Find` within a `Do...While` loop. There are several examples of that sort of problem on SO. If you have trouble implementing the loop, let me know.
The problem you have is because you're searching for a string - whereas `#REF` is an error.

You could use the [IsError](http://msdn.microsoft.com/en-us/library/s55kc30t%28v=vs.90%29.aspx) function, to return true for a cell with an error. Combine this with a loop, and you could achieve what you require. I haven't tested this, but you get the jist:

```
Set rng = Sheets("Location_Multiple").Range("A1:AL10000")
For Each cell In rngError
    If IsError(cell) == true
    MsgBox "Please go back and check.... " & cell.Address
    Endif
Next

```