Makro läuft in neuem Workbook nicht weiter

Private Sub Start_Format_Click()
' Auszug der ET Tabelle von ZVS_ETM
' Makro am 01.09.2010 erstellt
' Rohdaten (MHTML) öffnen
fileToOpen = Windows.Application.GetOpenFilename("All Files (*.*), *.*")
Workbooks.Open (fileToOpen)
Application.Visible = True
' Hier fehlt etwas was das geöffnete Workbook aktiv setzt um dort die nachfolgend
' programmierten Formatierungen auszuführen.
' Stücklisten # Fett markieren und ein x ans Ende setzen
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns("E:E").Select
Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("I:I").Select
Selection.NumberFormat = "#,##0.00"
Cells.Select
Selection.AutoFilter
' Überflüssige Texte und Stückzahl 0 löschen
Selection.AutoFilter Field:=8, Criteria1:="="
Range("I2:I4010").Select
Selection.ClearContents
Range("D2:E4010").Select
Selection.Font.Bold = True
Range("L2").Select
ActiveCell.FormulaR1C1 = "x"
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Copy
Range("L2:L4010").Select
ActiveSheet.Paste
Selection.AutoFilter Field:=8, Criteria1:=""
Range("D2:D4010").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=6, Criteria1:="0"
Rows("2:4010").Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=8, Criteria1:="="
Selection.AutoFilter Field:=8
' Formeln in Felder kopieren
Range("M2").Select
ActiveCell.FormulaR1C1 = "=IF(OR(R[0]C[-9]0,R[0]C[-2]0)=TRUE,""x"","""")"
Range("N2").Select
ActiveCell.FormulaR1C1 = "=IF(R[0]C[-10]0,R[0]C[-10],R[0]C[-6])"
' Formeln nach unten kopieren
Range("M2:N2").Select
Selection.Copy
Range("M3:M4010").Select
ActiveSheet.Paste
' Datei als .xls speichern
Dim MyFileName As String
Dim MyPfad As String
MyPfad = IIf(Right$(ActiveWorkbook.Path, 1) = Application.PathSeparator, ActiveWorkbook. _
Path, ActiveWorkbook.Path & Application.PathSeparator)
MyFileName = Cells(1, 14)
ActiveWorkbook.SaveAs Filename:= _
MyPfad & MyFileName _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub