Private Sub CommandButton1_Click()
Dim mEx As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim sFile As String
On Error Resume Next
sFile = "C:\Test.xls" 'Pfad anpassen
Set mEx = GetObject(, Excel.Application)
If Err.Number <> 0 Then
Set mEx = CreateObject("Excel.Application")
End If
Err.Clear
On Error GoTo 0
Set wb = mEx.Workbooks.Open(sFile)
For Each ws In wb.Worksheets
    List1.AddItem ws.Name
Next ws
wb.Close
Set wb = Nothing
Set mEx = Nothing
Set ws = Nothing
End Sub

Gr??e

Hoffi

"Dummheit ist keine Schande. Hauptsache man h?lt den Mund dabei."
(Werner Mitsch, dt. Aphoristiker, 1722-1873)