Using New VBA code

  • Thread starter Thread starter Kris
  • Start date Start date
K

Kris

I am trying to set up a macro to delete rows if some of the columns in the
row do not contain data.

here is the code that I am using:

Sub DeleteBlankRows2()
'Deletes the entire row within the selection if _
some of the cells WITHIN THE SELECTION contain no data.

On Error Resume Next

Selection.EntireRow.SpecialCells(xlBlanks) . EntireRow.Delete

On Error GoTo 0

End Sub

The columns have pick lists build in some, but if I leave the pick list
blank I want it to delete the entire row. When I run the macro I get a
Syntax Error that says something is not set up right.

Can anyone help me?
 
You have some extra spaces before the command 'entire row.delete'. Should be:

Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
 
Back
Top