Delete Illegal Names

I came across this code to allow the user to rename illegal names:

Sub Rename_BadNames()
If ActiveWorkbook.Names.Count > 0 Then
With Application
.ReferenceStyle = xlR1C1
.ReferenceStyle = xlA1
End With
End If
End Sub

in this thread: http://ozgrid.com/forum/showth…21&highlight=delete+names

Can anybody add the required loop to rename them all legally?
Something like zzz1, zzz2, zzz3, etc.

I keep inheriting workbooks with 1,000's of Lotus 123 names that begin with illefgal characters, and want to delete all illegal external names and #Ref! names in one go...

Any help would be much appreciated,
Mike