delete row on basic of cell

[Boss]

HI,

I wish to delete entire row if value in col J is "--"

I did some work but not working properly.
data id huge of 400 rows.

Thanks for help.
Boss


Sub delete()
Dim rng As Range
Dim rngAll As Range

Set rngAll = Range("j:j")

For Each rng In rngAll
If rng.Value = "--" Then

rng.EntireRow.Delete
End If
Next rng

Set rng = Nothing
Set rngAll = Nothing

End Sub

 

[Gary''s Student]

Sub marine()
Set rngAll = Intersect(Range("i:j"), ActiveSheet.UsedRange)
Set rdel = Nothing
For Each r In rngAll
If r.Value = "--" Then
If rdel Is Nothing Then
Set rdel = r
Else
Set rdel = Union(rdel, r)
End If
End If
Next
If rdel Is Nothing Then
Else
rdel.EntireRow.Delete
End If
End Sub