Thread: Work around to SpecialCells(xlCellTypeBlanks)...
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
ward376 ward376 is offline
external usenet poster
  
Posts: 360
Default Work around to SpecialCells(xlCellTypeBlanks)...
Sub remove()
Dim c As Range
For Each c In ActiveSheet.Range("d2:d" & Rows.Count)
If c.Text = "" Then c.EntireRow.Delete
Next
End Sub

Cliff Edwards
Reply With QuoteReply With Quote