wenn ich diesen Code anwende:
Sub alle_Loeschen()
Dim n As Name
For Each n In ActiveWorkbook.Names
n.Delete
Next
End Sub
erhalte ich einen Syntaxfehler.Wo ist das Problem?
Danke und Gruß vom Lutz
Sub alle_Loeschen()
Dim n As Name
For Each n In ActiveWorkbook.Names
n.Delete
Next
End Sub
erhalte ich einen Syntaxfehler.Option Explicit
Sub alle_Loeschen()
Dim n As Name
For Each n In ActiveWorkbook.Names
If InStr(n, "#") = 0 Then
Names(n.Name).Delete
End If
Next
End Sub