Çalışma kitabında tanımlı adları silen VBA kodu alternatifidir.
Option Explicit
Sub CalismaKitabindakiTanimliAdlariSil1()
Dim tanimliAd As Object
For Each tanimliAd In ActiveWorkbook.Names
tanimliAd.Delete
Next
End Sub
Sub CalismaKitabindakiTanimliAdlariSil2()
Dim tanimliAd As Object
For Each tanimliAd In ActiveWorkbook.Names
If tanimliAd.Name Like "Alan" Then
tanimliAd.Delete
End If
Next
End Sub
Sub CalismaKitabindakiTanimliAlanlariSil3()
Dim ad As Name
For Each ad In Names
ActiveWorkbook.Names(ad.Name).Delete
Next
End Sub