This code does not work in my Macro!

[hrithik]

The following code does not work in my Macro:

For Each MyCol In Array("F", "G", "H")
        Columns(MyCol).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp
    Next MyCol

Any thoughts? I'm using excel 2010, Win 7

 

[xld]

Maybe there are no blanks. Remember, that all the blanks after the lasy row will not be counte.

Try

Dim MyCol
    For Each MyCol In Array("F", "G", "H")
        If Not Columns(MyCol).SpecialCells(xlCellTypeBlanks) Is Nothing Then _
            Columns(MyCol).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp
    Next MyCol