Alan Adı Silme

[casteneda]

Merhabalar;

Ekteki dosyada, Alan adlarından sadece "today" olanları makro ile silmek istiyorum. Sn. Cost Controlden aldığım formülü aşağıdaki şekilde değiştirdim, ancak hata veriyor. Dosyayı ekledim. Sadece "today" yazan alan adlarının tamamını, makro ile nasıl silebiliriz? soruyla ilgilenecek olan herkese şimdiden çok teşekkürler.

"Sub Makro1()
ActiveWorkbook.Names("today_" & "*").Delete
End Sub"

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub Makro1()
    On Error Resume Next
    For X = 1 To 205
    ActiveWorkbook.Names("today_" & X).Delete
    Next
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Makro1()
ActiveWorkbook.Names("today").Delete
End Sub

 

[casteneda]

Sn. Cost Control cevabınız sorunu çözdü. Sn. Cost Control ve Sn Seyit Tiken ilgilendiğiniz için çok teşekkürler.