Hello,

I'm trying to deleta a row if the cell value in column D is zero.

Thanks!

Something like this maybe...

Sub RemoveZeroRowsFromColumnD()
Dim X As Long
For X = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row To 1 Step -1
If ActiveSheet.Cells(X, "D").Value = 0 Then
ActiveSheet.Cells(X, "D").EntireRow.Delete
End If
Next
End Sub

You can change the ActiveSheet reference to a specific sheet reference if
that is your need.

Rick


"amanda" <(E-Mail Removed)> wrote in message
news:84f90c40-24d5-43f5-8960-(E-Mail Removed)...
> Hello,
>
> I'm trying to deleta a row if the cell value in column D is zero.
>
> Thanks!