Sayfalardaki tanımlamaları silmek

[bezl]

İyi günler,
dış veri al ile aldığım bir raporu daha sonra bir mail adresine atacağım zaman tanımlamaları (yani bağlantılı olma durumunu) silmek istiyorum. Bu işlemi yeni makro kaydetten yaptım ama aynı belgede bu makroyu çalıştırdığımda hata veriyor.

Sub sil()
    ActiveWorkbook.Names("Altınkaynak").Delete
    ActiveWorkbook.Names("Banka_Genel").Delete
    ActiveWorkbook.Names("Kasa_Genel").Delete
    ActiveWorkbook.Names("TCMB").Delete
    ActiveWorkbook.Names("www.akbank.com.tr").Delete
    ActiveSheet.Next.Select
    ActiveWorkbook.Names("Cari_icmal").Delete
    ActiveSheet.Next.Select
    ActiveWorkbook.Names("Kasa_Hareket").Delete
    ActiveSheet.Next.Select
    ActiveWorkbook.Names("Banka_Hareketler").Delete
    ActiveSheet.Next.Select
    ActiveWorkbook.Names("Borç_Çekler").Delete
    ActiveWorkbook.Names("Müşteri_Çek").Delete
    ActiveSheet.Next.Select
    ActiveWorkbook.Names("Senetler").Delete
    ActiveSheet.Next.Select
    ActiveWorkbook.Names("_6_Hesaplar").Delete
    ActiveWorkbook.Names("_7_Hesaplar").Delete

End Sub

    ActiveWorkbook.Names("Cari_icmal").Delete

de hata veriyor böyle bir nesne yok diye bunu nasıl çözebilirim.
veya bir belgedeki tüm tanımaları daha kolay silebileceğim bir yol var mı?

 

[Haluk]

Merhaba;

Þöyle bir şey deneyin ...

For i = ActiveWorkbook.Names.Count To 1 Step -1
    ActiveWorkbook.Names(i).Delete
Next

 

[bezl]

Sağolun