Voce quer abrir uma determinada planilha onde existem várias:
Coloque um Text, e no evento LostFocus
Set xls = New Excel.Application
Set wb = xls.Workbooks.Open(Text1.Text & ".xls")
Pode ser uma Combo, FileListBox, DriveListBox,etc..
Basta pegar o nome do Arquivo selecionado.
É isto????
vlu//