Correction,

Option Explicit

Sub DeleteRows()

Dim lngLastRow As Long
Dim i As Long

With Sheets("Sheet1")

lngLastRow = .Cells(Rows.Count, "C").End(xlUp).Row

For i = lngLastRow To 10 Step -1
If .Cells(i, "C").Value = "" Then
.Rows(i).EntireRow.Delete Shift:=xlUp
End If
Next i
End With

End Sub
--
Cheers,
Ryan


"Ryan H" wrote:

This should work for you. Just place this code into a standard module and
adjust the name on the worksheet you want to use.

Option Explicit

Sub DeleteRows()

Dim lngLastRow As Long
Dim i As Long

With Sheets("Sheet1")

lngLastRow = .Cells(Rows.Count, "C").End(xlUp).Row

For i = lngLastRow To 10 Step -1
If Cells(i, "C").Value = "" Then
Rows(i).EntireRow.Delete Shift:=xlUp
End If
Next i
End With

End Sub

Hope this helps! If so, click "YES" below.

--
Cheers,
Ryan


"LiAD" wrote:

Hi,

Could some give me a code please to delete the entrie row if any cell in col
C of that row starting from c10 going to the last cell down = ""?

Thanks
LiAD