DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Tanimlama_Gizle()
Dim i As Long
For i = 1 To ActiveWorkbook.Names.Count
ActiveWorkbook.Names(i).Visible = False
Next i
End Sub