DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub ALAN_İSİMLERİNİ_SİL()
If ActiveWorkbook.Names.Count = 0 Then
MsgBox "TANIMLI ALAN İSMİ BULUNAMAMIŞTIR !", vbExclamation
Exit Sub: End If
For X = 1 To ActiveWorkbook.Names.Count
ActiveWorkbook.Names(1).Delete
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub