Macro wont play

[m40wen]

Hi Guys

I am a beginner in VBA but am having a problem. The code below steps through ok, yet when I hit play it errors on the object line and I dont understand why (run time 91). There is a worksheet function off this which returns now() as a time stamp, but I dont get why this doesnt step through

 
Sub ReplaceEvareEscrow()
 
Dim lngrow As Long
  Dim Account As String
  Dim Update As Long
  Dim Rngfound As Range
  Dim Rngsearch As Range
  Dim Evare As Range
 
  Set Rngsearch = Sheets("Data").Columns("B:C")
 
  With Sheets("Evare")
 
    lngrow = 2
    Do Until .Cells(lngrow, 1) = Empty
 
      Account = .Cells(lngrow, 1)
      Update = .Cells(lngrow, 5)
 
 
      Set Rngfound = Rngsearch.Find(What:=Account, LookAt:=xlWhole, MatchByte:=False)
 
     With Rngfound
        .Offset(0, 2).Value = Update
     End With
 
    lngrow = lngrow + 1
 
    Loop
 
  End With
 
End Sub
 
 

Any help is appreciated

Mike

[danp129]

Please be more clear when stating where you're getting the error. Anyhow, if your code doesn't find a match for the account then Rngfound will be nothing, and Nothing doesn't have any properties or methods, it really is nothing :) Try this:

 If Not Rngfound Is Nothing Then
     With Rngfound
        .Offset(0, 2).Value = Update
     End With
 End If

Also, if you only have one cell to update I wouldn't bother using With, just use Rngfound.Offset(0,2).Value=Update