aanpassen pulldown menu m.b.v. visual basic

[Egbert12345]

Hoi forummers,

Ik stuur een voorbeeld mee. Ik heb een pulldown menu dat ik gebruik in een toepassing. De verwijzing naar de rij namen in kolom N kunnen veranderen. Ik heb een macro gemaakt die de .ListFillRange aanpast en dat gaat goed, maar ik wil ook .DropDownLines aanpassen, zie s.v.p. mijn voorbeeld en daar loop ik vast. Hoe doe ik dat?

gr Egbert

 

[Haije]

zo:

Sub Macro5()
'
' Macro5 Macro
'

'
    ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
    
    eindebereik = Range("O1")
    
    Application.CutCopyMode = False
    With Selection
        .ListFillRange = "$N$2:$N" & eindebereik & ""
        .LinkedCell = ""
        .DropDownLines = eindebereik
        .Display3DShading = False
    End With
    Range("G2").Select
End Sub

 

[Egbert12345]

Bedankt Haije, wat oliedom van mij. Ik had mij dit moeten bedenken.
gr Egbert