warum fehlermeldung?

Sub makro()
Dim fn
Dim arbeitsmappe As String
Dim datei As String
fn = Application.GetOpenFilename(FileFilter:="Textdateien,*.txt", Title:="Bitte Datei auswählen")
Application.ScreenUpdating = False
arbeitsmappe = ActiveWorkbook.Name
If fn = False Then
MsgBox "Benutzerabbruch"
Exit Sub
Else
Workbooks.Open fn
Workbooks.OpenText Filename:= _
fn _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1) _
, DecimalSeparator:=".", ThousandsSeparator:=" "
Range("A:A").Copy Workbooks(arbeitsmappe).ActiveSheet.Range("iv1").End(xlToLeft).Offset(0, 0)
ActiveWorkbook.Close False
End If
Application.ScreenUpdating = True
End Sub