Using New VBA code

[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?

 

[Luke M]

You have some extra spaces before the command 'entire row.delete'. Should be:

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

 

[Ron de Bruin]

Look out with this

See this page
http://www.rondebruin.nl/specialcells.htm

 

[Don Guillett]

Why are you RE-posting the same question?