Rullemenu hvor der skal linkes til andre ark/filer

Glemte at skrive at det er ark som er navngivet uge 1 - uge 52. Det er altså ark der skal linkes til (isamme excelfil.

Jeg har også brug for en løsning hvor der fra rullemenu linkes til andre xls filer.

Håber på hjælp

Kvisten

Skal du bruge funktionen som en rullemenu, eller kan du "nøjes" med at skrive 1-52 på en samlet oversigt, og så vælge det rigtige ark ved at klikke på pågældende uge?
/Be_Nice

Alternativt kan du lave en Userform, hvor du kan udføre opgaven med at skifte mellem de forskellige ark i samme fil.
/Be_Nice

Det lyder som om det er forslag 2 jeg søger. Jeg ved dog ikke hvordan jeg skal gøre det.

Kender du mon lidt til VBA og kodning, eller er du helt "grøn"?
Ellers er du velkommen til at sende dit ark til mig på:
be_nice {sn@bel@} live.dk
/Be_Nice

Og hvis du har lyst til at prøve lidt selv, skal du oprette en userform i dit regneark med 1 rullefelt og 3 knapper, hvorefter du skal indsætte flg. kode:
-----
Dim normH
Dim miniH
Private Sub CommandButton1_Click()                  'ok
Dim arkNavn
    If Me.ListBox1.ListIndex <> -1 Then
        arkNavn = Me.ListBox1
        ActiveWorkbook.Sheets(arkNavn).Activate
    End If
End Sub
Private Sub CommandButton2_Click()                  'luk
    Unload UserForm1
End Sub
Private Sub CommandButton3_Click()                  'Minimer
    If Me.CommandButton3.Caption = "Minimer" Then
        Me.CommandButton3.Caption = "Gendan"
        Me.CommandButton3.Accelerator = "G"
        UserForm1.Height = miniH
    Else
        Me.CommandButton3.Caption = "Minimer"
        Me.CommandButton3.Accelerator = "M"
        UserForm1.Height = normH
    End If
End Sub
Private Sub ListBox1_Click()
    Me.CommandButton1.SetFocus
End Sub
Private Sub UserForm_activate()
    normH = UserForm1.Height
    miniH = 50
   
    For Each sh In ActiveWorkbook.Sheets
        Me.ListBox1.AddItem sh.Name
    Next sh
End Sub
-----
/Be_Nice

Jeg er ikke helt grøn - så jeg prøver at rode lidt med det imorgen - du hører nærmere.

/Kvisten

Kunne ikke lade det ligge og har endelig knækket koden.
det virker og /Be_Nice giv mig et svar og du får dine velfortjente points.
//Kvisten

Godt at høre at du fik det løst - og tak for point.
/Be_Nice