Delete row if #REF! shown

[ipbr21054]

Hi,
I am using this simple code =DATABASE!A202 & son on.
I have noticed that if nothing is in the cell in question then on the worksheet where there should be a value etc i see #REF !

Can we use some kind of code so that row is then deleted should #REF ! be in any cell in Column A

Thanks

 

[ipbr21054]

OK
This is where i am so far.
The macro is DeleteRefErrors

I then have this,

Private Sub Worksheet_Activate()Call DeleteRefErrors
End Sub

It works as it should BUT it also advises me when no cells were found,meaning no errors on the page.
Is there a way to suppress this message.

 

[Fluff]

Try

Private Sub Workbook_Open()
   Worksheets("HONDA SHEET").Activate
   Range("A13").Select
   ActiveWindow.ScrollRow = 13
   With Worksheets("INV DETAILS")
      On Error Resume Next
      .Columns("A").SpecialCells(xlFormulas, xlErrors).EntireRow.Delete
      On Error GoTo 0
   End With
End Sub

 

[ipbr21054]

HI,
Where did HONDA SHEET A13 come from ?
Sorry my mistake

 

[ipbr21054]

Hi,
That codes shows me the same no cells found message.
I know the code is doing what it is supposed to do but i dont need to know no errors were found Ha Ha

 

[Fluff]

That codes shows me the same no cells found message.

In that case you didn't use the code I posted, as that will hide the error if it occurs

 

[ipbr21054]

This is what i have,
I noticed that your zero has a line through it but mine wont show like that

Private Sub Workbook_Open()   Worksheets("HONDA SHEET").Activate
   Range("A13").Select
   ActiveWindow.ScrollRow = 13
   With Worksheets("INV DETAILS")
      On Error Resume Next
      .Columns("A").SpecialCells(xlFormulas, xlErrors).EntireRow.Delete
      On Error GoTo 0
   End With
End Sub

 

[Fluff]

You should not be getting a "No cells were found" error with that code.

 

[ipbr21054]

Ive just checked and the code is the same.
I see the code each time i open the workbook.

If that wont work what if we show a msg box but then straight after hide it,basically anything.

 

[Fluff]

This line

      On Error Resume Next

suppresses all errors, so you should never get any error messages until after this line

      On Error GoTo 0

which sets the error handler back to the default.
Do you get any other error messages?

 

[ipbr21054]

NO,
This is what happens.
I open the workbook.
I then see this message.

"Run time error 1004" No cells were found.

If i click on debug this is shown in yellow.
.Columns("A").SpecialCells(xlFormulas, xlErrors).EntireRow.Delete

I only then see it again once the workbook is next open