Deleting Blank Rows

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
"Nigel Bennett" wrote:

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