For loop step back

[Forestq]

Hi,

I have loop:

For j = 10 to 500
   x= ws.Range("C" &  j).Value
        
   If x = 0 Then       
          ws.Range("A" & j ).Select
          Selection.EntireRow.Delete
   End if

next

Example:
j = 10
x = 0

Row is deleted, but code should once again check j=10, because when row is deleted then automaticly row 11 is now 10, row 12 is 11, row 13 is 12 etc...(all row is moved up)

When I did like

For j = 10 to 500 Step -1
.
..
...

is not working.

Are you able to help me?

 

[Jonmo1]

Try

For J = 500 To 10 Step -1

 

[Forestq]

thanks Jonmo1!

 

[Jonmo1]

You're welcome.