Delete Line

[Shawn]

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

 

[Jacob Skaria]

Replace the last line of the code with

xRange.EntireRow.Delete

If this post helps click Yes

 

[Per Jessen]

Hi

Use this:

xRange.EntireRow.Delete

Regards,
Per

 

[Shawn]

Great. That works. I was using this code and it wasn't working:

Range("xRange" & ActiveCell.Row).EntireRow.Delete Shift:=xlUp