Delete ALL Named Ranges on ACTIVE Worksheet?

Hiya

I have a piece of code that deletes all named ranges from the active workbook:
Sub Delete_ALL_Named_Ranges()
Dim n As Name
For Each n In ActiveWorkbook.Names
n.Delete
Next n
End Sub

What I need for a spreadsheet I'm currently working on is a way to delete all the named ranges, but only from the active worksheet.

For example, in a 3 worksheet workbook, Sheet1 and Sheet 3 contain named ranges that do not change. Sheet2 contains several named ranges all of which need to be deleted and re-created when the macro is run. In other words, I want to delete all the named ranges from Sheet2, but to leave any named ranges on Sheet1 and Sheet3 intact.

I suppose that I could settle for deleting all named ranges from the entire workbookk and then re-creating those I still need, but there has to be a more "elegant" solution.

Any suggestions??

JAF