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

[malik641]

A more efficient way is to use autofilter, filter by blanks, and delete visible rows

[vba]

With Range("C9:C119")
.AutoFilter Field:=1, Criteria1:="=""""", Operator:=xlAnd
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter
End With
[/vba]

That's a nice trick. I'll remember this one. Thanks Bob