Excel Datei .xls und .xlsx VBA Makro Öffnen

Sub main()
Dim wk As Workbook
Call cleanSheet     'Aufräumen
iRowToWrite = 1     '
DatOP = Application.GetOpenFilename("Excel-Dateien(*.xls, *.xlsx), *.xls, *.xlsx",  _
MultiSelect:=True)  'Eine Exel-Datei mit Endung .xls öffnen mit Multi-Auswahl
'        ---> Hier stimmt was nicht Öffnet nur xlsx-Dateien davor nur xls
'     bevor ich xlsx dazugefügt habe.
If fileToOpen  False Then         'Abfrage
MsgBox "Open " & fileToOpen
End If
If IsArray(DatOP) Then
For Each x In DatOP
Set wk = Workbooks.Open(x)
Call readData
Application.ScreenUpdating = False         'Speicher Abfrage nicht Anzeigen
ActiveWorkbook.Saved = True                ''Speicher das geöffnet Wk, der  _
ausgelesen wird!
Application.ScreenUpdating = True          '
wk.Close
Next
End If
End Sub