Remove Blank Cells in a Selection

[Krager]

I have a range selected in a Column and am trying to delete the Blank cells out. The following code works if there are blank cells in the range, but if there are not it gives an error.

Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp




Is there a way of doing it so it doesn't give an error, or should I just do On Error Resume Next for this section of the macro?

[Bob Phillips]

I have a range selected in a Column and am trying to delete the Blank cells out. The following code works if there are blank cells in the range, but if there are not it gives an error.

Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

Is there a way of doing it so it doesn't give an error, or should I just do On Error Resume Next for this section of the macro?

On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
On Error GoTo 0

[Krager]

Thanks, works perfectly