script does not delete blank rows

J

Janis

When I run this script from either the workbook where the worksheet is
located or from my personal.xls workbook it does not delete the rows that
have blank cells in column ("M"). It doesn't seem to do anything. It
compiles but it doesn't run. I still have all the rows with blank cells in
column "M" which are not needed for this report.

thanks,


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

Vergel Adriano

Janis,

It seems like you missed a "."


So, replace this line

Columns("M").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

With this

.Columns("M").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Problem with deleting blank rows or last row 4
Menu Macro Not Executing - Need Help 1
runtime 1004 error on deleting rows with blank cells 5
Delete All Blank Rows--A plea for help 6
Delete rows autofilter range problem 5
while deleting rows it finds an error - error trapping 2
Find #N/A in column D 2
Select Text to End of Footnote 9

Top