only deletes first row with a blank cell in column "M"

[Janis]

This code works but it only deletes the first row where the "M" column field
is missing. There are quite a few rows without that data I want deleted.
How come it only deletes the first one? It looks like it should work on the
whole range. Do I need to put in a loop or do I need to give it a range?

thanks

------------code------------
Sub DeleteBlanks()
With ActiveSheet
On Error Resume Next
.Columns("M").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End With
End Sub

 

[Janis]

I'll repost I think it must be finding an error and going to 0.