Sub delSome()
Dim lr As Long, rng As Range
lr = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
Set rng = ActiveSheet.Range("C10:C" & lr)
For Each c In rng
If c.Value = "" Then
c.EntireRow.Delete
End If
Next
End Sub



"LiAD" wrote in message
...
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