DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Test()
Dim myList()
ReDim myList(1 To ThisWorkbook.Names.Count)
For i = 1 To UBound(myList)
myList(i) = ThisWorkbook.Names(i).Name
Next
Range("A1").Validation.Delete
Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(myList(), ",")
End Sub