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

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

Hi

Use this:

xRange.EntireRow.Delete

Regards,
Per

On 8 Maj, 14:03, Shawn <Sh...@discussions.microsoft.com> 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

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

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

--
Thanks
Shawn


"Jacob Skaria" wrote:

> 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