VBA code to delete rows in a selected range.

I got the following code from Julian's Macro Tips web site. The code checks for null or empth string values and when they are found deletes those rows. Can anyone help me to rewite this to have it evaluate the active cell and if the value is notbetween 1999 and 3000 then delete those rows that meet the criteria?

Please Login or Register  to view this content.

Any help would be much appreciated.

Maybe

Please Login or Register  to view this content.

VBA Noob