Macro delete rows containing specific words

I need a macro to delete any rows that contains: "duplicate", "inactive", "obsolete", "needs approval", or "removed" in column B.

Any row that contains any of those words should be deleted.

Maybe:

[code]
Sub mcrandazz()
Dim rcell As Range
On Error Resume Next
For Each rcell In Range("B2:B" & ActiveSheet.UsedRange.Rows.count)
If rcell.Value Like "*DUPLICATE*" Then rcell.EntireRow.Delete
If rcell.Value Like "*INACTIVE*" Then rcell.EntireRow.Delete
If rcell.Value Like "*OBSOLETE*" Then rcell.EntireRow.Delete
If rcell.Value Like "*NEEDS APPROVAL*" Then rcell.EntireRow.Delete
If rcell.Value Like "*REMOVED*" Then rcell.EntireRow.Delete
Next rcell
On Error GoTo 0
End Sub
[/copy]