Deleting Blank Rows

  • Thread starter Thread starter Nigel Bennett
  • Start date Start date
N

Nigel Bennett

THis Code Deletes all the blank rows the workbook it
starts at row 1

With ActiveSheet
On Error Resume Next
.Columns("C").SpecialCells
(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End With

How can I set it to start at another row for example row 5
 
With ActiveSheet
On Error Resume Next
.Range("C5:C65535").SpecialCells
(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End With

Try that...

HTH
 
Back
Top