Run Time Error 1004 - No Cells found

[MarkCBB]

Hi there,

I am using some code (Got from VoG). that deletes errors, but Now I have found that sometime the data will not contain errors. Is there an Error handler I can use to bypass the error so that the Code will continue to run> here is the code that I am currently using.

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(, 18).Select
Selection.FormulaR1C1 = "=IF(ISNUMBER(RC[-8])=TRUE,"""",NA())"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Columns("S").SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete

 

[ogo]

May be you can use On Error Resume Next ??

Thanks,

Ogo

 

[Richard Schollar]

Hi Mark

Replace your last line with:

Dim rngToDelete As Range
 
On Error Resume Next
Set rngToDelete = Columns("S").SpecialCells(xlCellTypeConstants, 16)
On Error Goto 0
 
If Not rngToDelete is Nothing Then rngToDelete.EntireRow.Delete

 

[MarkCBB]

Awesome! thanks Richard! works fantastically!.