Delete Line
Replace the last line of the code with
xRange.EntireRow.Delete
If this post helps click Yes
---------------
Jacob Skaria
"Shawn" wrote:
I need the code below altered so it deletes the entire row the blank cell is
in.
Dim xRange As Range
Dim xCell As Range
For Each xCell In Sheets("CDPTR").Range("A2:A25")
If xCell.Value = 0 Then
If xRange Is Nothing Then
Set xRange = xCell
Else
Set xRange = Union(xRange, xCell)
End If
End If
Next xCell
xRange.Delete Shift:=xlup
--
Thanks
Shawn
|