Dim Book1 As New XLS.Book("C:\data\N91SIZIP.xls")For i As Integer = 0 to book1.Sheets.count -1 output.show(book1.Sheets(i).name)Next