Forfinelse af en drop-down liste

fx.
Private Sub Worksheet_Activate()
Application.EnableEvents = False
[G10].FormulaR1C1 = "È  È"
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Wingdings 3"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G10")) Is Nothing Then Exit Sub
Application.Goto Reference:=Target.Value
End Sub

Hej igen:-)

Det giver umiddelbart ikke den ønskede effekt. Kan du vise det i det excelark jeg sendte igår? Jeg ændrede G10 til der hvor min dropdown menu er, men det gav en lille pil med et 'É' ved siden af. Den nulstillede heller ikke dropdown menuen.

Jeg vil ikke udelade at jeg lavede en fejl ...hehe.

ok prøv denne
ved ikke lige hvad du mener med at nulstille !

http://pmexcelent.dk/Test_1.xls

obs vises første når Arket aktiveres
(dvs når du fra et andet ark vælger forside)

Ja det virker :-) Jeg skal lave flere forskellige rullelister på samme ark og prøvede at kopiere og klippe hele programkoden ind og ændrede bare cellenummeret til det sted min nye rulleliste skal være. Det virkede umiddelbart ikke. Hvor skal man ændre hvis man skal have multiple rullelister på samme ark?

ok her er en ny version med 3 rullelister
prøv om du ud fra det kan lave din egen, ellers sig bare til
Det virker ok sålænge dine link sender fokus til andre ark,
men hvis det er link til seller på Forsiden, opdateres pile ikke
sig til hvis det er tilfældet, så skal jeg forsøge at løse det.

http://pmexcelent.dk/Test_2.xls

Jamen det virker jo perfekt. Mange tak skal du have. Lav lige et svar, så jeg kan overføre points til dig :-)

ok velbekom