liste déroulante avec les noms des feuilles d'un classeur fermé

Bonjour ,

j'aimerais savoir comment faire pour aller chercher les noms des feuilles d'un
classeur fermé , celui-ci étant sélectionner avant par le biais d'un bouton parcourir:

Private Sub chemin_Click()
fich = Application.GetOpenFilename("Tous les fichiers excel,*.xls")
If fich = False Then Exit Sub
chemin.Visible = True
End Sub

merci