Tabellenblatt auslesen

Sub Auslesen()
Dim lvarDatei
Dim liZeile As Integer
Dim liAnzahl As Integer
Dim g As Integer
Dim s As Integer
Dim i As Integer, wkbQ As Workbook, wksQ As Worksheet, wksZ As Worksheet
Set wksZ = ThisWorkbook.Sheets("Planung")
Sheets("Steuerung").Select
Range("A9:A84").Select
Selection.ClearContents
Calculate
Application.ScreenUpdating = False
lvarDatei = Application.GetOpenFilename("Excel-Dateinen (*.xls),*xls", , "Öffnen Sie eine  _
Excel-Datei", "Öffnen")
If lvarDatei = False Then Exit Sub
Workbooks.Open lvarDatei
Workbooks(1).Activate
Range("B3").Value = lvarDatei
liZeile = 1
For liAnzahl = 1 To Workbooks(2).Sheets.Count
Range("A" & liZeile + 8).Value = Workbooks(2).Sheets(liZeile).Name
liZeile = liZeile + 1
Next
Calculate
g = ThisWorkbook.Sheets("Steuerung").Cells(5, 3)
h = ThisWorkbook.Sheets("Steuerung").Cells(6, 3)
' For i = g To h
' Application.DisplayAlerts = False
'hier soll dann das Auslesen rein!!!
' Next
Workbooks(2).Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub