Delete Row

**drums4monty** · 11-17-2006, 01:32 PM

Hi Simon

Many thanks for the help, when I run the code I get this error:

Delete method of Range class failed

and when I press debug it highlights this line:

MyCell.EntireRow.Delete

Regards

Alan

**Raiby** · 11-17-2006, 01:35 PM

Hi Alan

And what do you think of this?

Sub Delete()
For i = 9 To 119
For j = 3 To 3
If Cells(i, j) = "0" Or Cells(i, j) = "" Then
Rows(i).Delete
End If
Next j
Next i
End Sub

**drums4monty** · 11-17-2006, 01:50 PM

Hi Raiby

Thanks for the code, I cannot get it to work.

Alan

**Raiby** · 11-17-2006, 02:01 PM

Hi Alan

Did you see my correction?

**Simon Lloyd** · 11-17-2006, 02:58 PM

DrumsforMonty, i'm no expert and my code worked for me but there is a flaw, as it looks from the top down if it comes across 2 blanks in a row it will only see them as one, so i posted my answer to another forum (full of experienced guys) and i got a lesson aswell as a couple of solutions here's the thread http://vbaexpress.com/forum/showthre...9882#post79882 MDmackillop probably has the solution closest to what you need.

Regards,
Simon