Bypass An Error

[Ark68]

I use this code :

    Else
        rTarget.Fill.ForeColor.RGB = RGB(255, 255, 255) 'ON to OFF
        p1 = wshvar.Range("T3:T500").Find(What:=rTarget.Name).Address
        wshvar.Cells.Range(p1).Delete xlUp
    End If

However, sometimes the value doesn't exist in the range to find, so there is an error.
How can I overcome this?

 

[Peter_SSs]

Little tricky without knowing what else might be in your code, but try this

Else
    rTarget.Fill.ForeColor.RGB = RGB(255, 255, 255) 'ON to OFF
    On Error Resume Next
    p1 = wshvar.Range("T3:T500").Find(What:=rTarget.Name).Address
    On Error GoTo 0
    If p1 <> "" Then
      wshvar.Cells.Range(p1).Delete xlUp
    End If
End If

 

[Ark68]

Hi Peter ... that was what was needed. Thank you!

Jenn