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,