Macro to delete certain rows if DATE criteria is met

[lukasz_rz]

Hi Guys.

To describe the problem quickly: I have a worksheet with a huge amount of data. What I need from the macro is to:

1. Delete each row if the cell in this row does not contain specific text (lets say, it is column B, its named "Surname" and the text is "Smith" or the text is "Black"). If the surname is not Smith (or Black), let's delete the whole row and proceed with the next one.

2. When we complete the 1st step, now it is time to check the date. We have column C, named "Date" and of course each of the cell in this column is either blank or contains a date. What I need is to delete each row if the cell (date) in this row is earlier than my date. The thing is, I would like to have a popup window to set up the criteria date each time I run the macro. For example: I put 2014-02-20 in the popup window, and all the rows, where the date in column C is earlier than 20th of Feb 2014 are deleted. Is it possible?

That is more less what I dream about to have. Any help will be highly appreciated.

Thx in advance.

PS.

[Mumps1]

It would be easier to help if you could post a copy of your file.