Solved: Deleting blank rows in range? a better way?

[mdmackillop]

Hi Simon,
I'll go with XLD here, and the best way to include 0 is to find and clear them first.
[vba]
Sub removeblanks()
Dim Rng As Range
Dim MyCell
Dim i
Set Rng = Range("C9:C119")
With Rng
Set C = .Find(0, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Do
c.ClearContents
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
Rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub

[/vba]