Delete worksheets based on criteria

I have a workbook that has address information in it. One worksheet contains all data for all states, another worksheet contains summary data, and the other worksheets are for each individual state with the data copies from the worksheet that has all the data in it. I would like to delete any worksheet that does not have more than 200 records. I did try just adding worksheets that have more than 200 records rather than creating a delete subroutine, but I got farther with the delete. I do not want the worksheets containing all data ("vqueue") or the worksheet containing summary information ("Sheet1") to be deleted. I keep getting errors when I run the following code. Can anybody provide insight Thank you in advance!

Please Login or Register  to view this content.

Note that AF2 contains the number 200 as I could not seem to get it to work otherwise.

When I run the code, I get a run-time error 438 - object doesn't support this property or method on the following line:

Please Login or Register  to view this content.

I'm not quite sure how to fix the error.

Thanks for the reply! The code seems to run without triggering an error, but it doesn't actually delete any worksheets even though there should be at least 30 that should get deleted. Thoughts?

What is the result of the macro from Post #3?