vba getting error

[husayn]

[TABLE="width: 1691"]
<colgroup><col></colgroup><tbody>[TR]
[TD] Dim Addr As String[/TD]
[/TR]
[TR]
[TD] Addr = Range("C2", Cells(Rows.Count, "C").End(xlUp)).Address[/TD]
[/TR]
[TR]
[TD] Range(Addr) = Evaluate(Replace("IF(ISNUMBER(SEARCH(""BLR"",@)),""#N/A"",@)", "@", Addr))[/TD]
[/TR]
[TR]
[TD] Range(Addr).SpecialCells(xlConstants, xlErrors).EntireRow.Delete[/TD]
[/TR]
</tbody>[/TABLE]


[TABLE="width: 1691"]
<colgroup><col width="1691"></colgroup><tbody>[TR]
[TD="width: 1691"]Hi I m using this code to delete BLR IN C Column ok it is working but when BLR is not available in C Column its showing error please help me to skip this error if BLR Is not available in C Column then it should get skip should not show error and should go to next coding[/TD]
[/TR]
</tbody>[/TABLE]

 

[footoo]

Wrap the code producing the error :

On error Resume Next
....code...
On Error Go To 0

 

[husayn]

Wrap the code producing the error :

On error Resume Next
....code...
On Error Go To 0

Dear Footoo
i m unable to write this i m new please help me write coding.

thank u in adavance

 

[footoo]

On error Resume Next
Range(Addr).SpecialCells(xlConstants, xlErrors).EntireRow.Delete
On Error Go To 0