Addin macro to delete names in current workbook

We have a simple macro to delete all named cells in the current workbook. It
works fine in a macro sheet, but we cannot get it to work in an XLA, I
believe because we can't seem to grab the active worksheet via VB. Thoughts
appreciated.

Sub NoNames()
'
' Macro1 Macro
' Macro recorded 7/22/2005 by KURIENT

'

Dim n As Long
Dim m As Long

m = ThisWorkbook.Names.Count

For n = 1 To m
ThisWorkbook.Names(1).Delete
Next n

End Sub