Dim xls = New Microsoft.Office.Interop.Excel.ApplicationDim xlsWbks As Microsoft.Office.Interop.Excel.WorkbooksDim xlsWbk As Microsoft.Office.Interop.Excel.WorkbookDim ListWks As Microsoft.Office.Interop.Excel.WorksheetDim DataWks As Microsoft.Office.Interop.Excel.WorksheetDim sht As Microsoft.Office.Interop.Excel.WorksheetDim listHeader As StringDim dataHeader As String xlsWbks = xls.WorkbooksxlsWbk = xlsWbks.Open("filename.xls", , True)xls.Visible = True For Each sht In xls.Worksheets If sht.Name = "List" Then ListWks = sht Exit For End IfNext For Each sht In xls.Worksheets If sht.Name = "Data" Then DataWks = sht Exit For End IfNext DataHeader = DataWks.Range("B1").ValueListHeader = ListWks.Range("B1").Value