Deleting Rows that have special characters and begining and ending of a cell

[Snaybot]

If

the first character is "<"

and last character is ">"

then delete entire row

Thanks

 

[Snaybot]

Never mind i figured it out


Sub DeleteRows()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("B1", Range("B" & Rows.Count).End(xlUp))
If Left(c, 1) = "<" And Right(c, 1) = ">" Then c.EntireRow.Delete
Next c
Application.ScreenUpdating = True
End Sub

If anybody is wondering