Fehler beim Kompilieren ("Dim dlg As FileDialog")

Sub Tabelle_Importieren()
Dim dlg As FileDialog
Dim si As Variant
Set dlg = Application.FileDialog(msoFileDialogOpen) 'Datei wählen
With dlg
.AllowMultiSelect = True 'der User darf mehrere Dateien auswählen
.InitialFileName = "*.xls"
.InitialView = msoFileDialogViewDetails 'Anzeige des Dialogs
.Title = "Tabelle importieren" 'Titel halt
End With
If dlg.Show = True Then
Frage = MsgBox("Sollen die Dateien nach Import gelöscht werden?", vbYesNo)
For Each si In dlg.SelectedItems 'jede ausgewählte Datei wird bearbeitet
Workbooks.Open Filename:=si
For Each TB In Sheets 'jedes Tabellenblatt der Datei wird importiert
TB.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
Workbooks(Dir(si)).Close savechanges = False
If Frage = vbYes Then Kill si
Next
End If
End Sub