delete row(s) based on cell value in different sheet

Your initial Macro example worked like a champ. The second sheet was sorted on the first column (A) and then the first row (1) was deleted because the value in Sheet1.A1 matched Sheet2.A1

Since my objective is to use the value of a selected cell in Sheet1 to delete rows from sheet 2 that have that value in a specified column, I tried altering your example to use ActiveCell.Address as the first parameter. This does nothing. It doesn't even sort the second sheet. Not even if I select A1 This tells me, the reference passed is not producing the value I want even though it does return the currently selected cell.

As a further test I simply changed the A1 reference for the first sheet to A2. Again, nothing.
I'm totally confused now. I must not be understanding something.

I should also note: I will be needing this to run in 2007 not 2003 as I first though. So I have been working on this at home tonight with 2007.
I really hope that's the problem.