Link til andre xls filer

Jeg har fået denne kode her på Eksperten men har brug for en løsnig som linker til navngivne xls filer istedet for til ark navne.

Her er koden (til ark navne) hvad skal ændres for den linker til xls filer istedet???

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


mvh
//kvisten63