açılır liste kod düzenleme

Merhaba. Aşağıdaki kodda Select demeden nasıl yapabiliriz? Sub AçılırListe() ActiveSheet.Shapes.Range(Array("Drop Down 29")).Select With Selection .ListFillRange = "VERİ!AC2:AC" & Sheets("VERİ").Range("AC50").End(3).Row .LinkedCell = "$Z$3" .DropDownLines = 15...

Merhaba. Aşağıdaki kodu destek ekibinden Refaz göndermişti. Kod gayet güzel çalışıyor, bu kodu başka programımda kullanmak istedim, veriler ARŞİV sayfasında olduğu için bir türlü yapamadım. .ListFillRange = "M2:M" & Cells(Rows.Count, "M").End(3).Row bu kısmı ARŞİV sayfasından almasını...