Macros doesn't work (open)

Window Erzeugerkurve_gaskessel() : Graph
    PauseUpdate; Silent 1       // building window...
    String fldrSav0= GetDataFolder(1)
    SetDataFolder root:'Analyse Erzeugerkurve':
    Display /W=(0,44,1644,1045)/HIDE=1  :Manuell_erstellte_Erz_Heizkurve:MWhth_pro_Woche vs :Manuell_erstellte_Erz_Heizkurve:Aussentemp_Woche_Flums_theoreti
    AppendToGraph Gask_2012_KW_bearbeitet_prod vs Aussentemp_Woche_2012_bearbeite
    AppendToGraph Gask_2013_KW_bearbeitet_pro vs Aussentemp_Woche_2013_bearbeit
    AppendToGraph Gask_2011_KW_bearbeitet_prod vs Aussentemp_Woche_2011_bearbeite
    SetDataFolder fldrSav0
    ModifyGraph gfSize=22
    ModifyGraph mode(Gask_2012_KW_bearbeitet_prod)=3,mode(Gask_2013_KW_bearbeitet_pro)=3
    ModifyGraph mode(Gask_2011_KW_bearbeitet_prod)=3
    ModifyGraph lSize(MWhth_pro_Woche)=3
    ModifyGraph rgb(Gask_2012_KW_bearbeitet_prod)=(0,0,0),rgb(Gask_2013_KW_bearbeitet_pro)=(1,26214,0)
    ModifyGraph rgb(Gask_2011_KW_bearbeitet_prod)=(0,2,26214)
    ModifyGraph grid(left)=2,grid(bottom)=1
    ModifyGraph minor=1
    ModifyGraph sep=4
    ModifyGraph lblMargin(left)=15,lblMargin(bottom)=8
    ModifyGraph gridRGB=(0,0,0)
    ModifyGraph lblPos(left)=102,lblPos(bottom)=72
    ModifyGraph lblLatPos(left)=1,lblLatPos(bottom)=3
    Label left "MWh\\Bth \\M / Woche  "
    Label bottom "ø Wochenaussentemperatur in Flums [ºC]"
    Cursor/P A MWhth_pro_Woche 3
    ShowInfo
    Legend/C/N=text0/J/H={0,4,10}/A=MC/X=26.90/Y=38.20 "\\s(MWhth_pro_Woche) Charakteristik Gaskessel "
    AppendText "\\s(Gask_2013_KW_bearbeitet_pro) Wärmeenergie Gaskessel pro KW im\t2013\t [MWh\\Bth\\M]"
    AppendText "\\s(Gask_2012_KW_bearbeitet_prod) Wärmeenergie Gaskessel pro KW im\t2012\t [MWh\\Bth\\M]"
    AppendText "\\s(Gask_2011_KW_bearbeitet_prod) Wärmeenergie Gaskessel pro KW im\t2011\t [MWh\\Bth\\M]"
    TextBox/C/N=text1/F=0/A=MC/X=39.68/Y=-31.16 "ø 10.6 MWh\\Bth\\M/ Woche\r   ausserhalb Heizperiode"
EndMacro