Macro to keep rows that have certain text in one column, delete rows that do not.

I need a macro that will go through all the cells in column B and if the text in the cell does not match one of the states listed in the code then the entire row needs to be deleted. Also it needs to skip over any blank rows and not delete them.
Thanks any help is greatly appreciated.
Here's my code.

Please Login or Register  to view this content.

Hi mandalope,
Welcome to the Forum.

Unfortunately Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)