Macro Stops

[Jamm_027]

Why does my macro stop?

My macro accomplishes exactly what I want it to do but I have to run it twice.

The first time I run it. It stops after selecting the range E6:E300. So, then I have to run it again and it will delete all the rows correctly for me. How can I make it run all the way thru?

Sub Delete_X()

Application.ScreenUpdating = False

Dim c As Range
For Each c In Selection
    
Range("E6:E300").Select

If c.Value = Range("$IT$1").Value Then c.EntireRow.Delete
Next

Application.ScreenUpdating = True

End Sub

 

[VoG]

You have to loop backwards whenh deleting rows. Try

Sub Delete_X()

Application.ScreenUpdating = False

Dim i As Long
For i = 300 To 6 Step -1
    

    If Range("E" & i).Value = Range("$IT$1").Value Then Rows(i).Delete
Next i

Application.ScreenUpdating = True

End Sub

 

[njimack]

When deleting rows, it's best to work your way up. And you don't need to select cells to perform actions on them.. Something like this:

Sub Delete_X()
Application.ScreenUpdating = False
Dim i As Long
For i = 300 To 6 Step -1
    If Cells(i, 5) = Range("$IT$1") Then Cells(i, 5).EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

 

[Jamm_027]

Got it.....thanks!