Run-time error'9' subscript out of range

Question

The error occurs when I rename the file. I need to be able to the macro automatically recognise the change in the file name and apply it to the macro. Is there any way to do this without having to manually change it each time which will no work for what I need this to do

Sub OccurenceSort()
'
' OccurenceSort Macro
' Macro recorded 4/9/2010 by Chris Greenlee
'
' Keyboard Shortcut: Ctrl+o
'
    Sheets("Occurences").Select
    Range("A1:D58").Select
    Range("D58").Activate
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("Chart").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(1).Values = "=Occurences!R2C2:R12C2"
End Sub
Sub OccurenceByValue()
'
' OccurenceByValue Macro
' Macro recorded 4/9/2010 by Chris Greenlee
'
' Keyboard Shortcut: Ctrl+v
'
    ActiveWindow.Visible = False
    Windows("QA Project - Automated Charts v1.1.xls").Activate
    Sheets("Occurences").Select
    Range("A1:D58").Select
    Range("D58").Activate
    Selection.Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("Chart").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Values = "=Occurences!R2C3:R12C3"
End Sub
Sub OccurencesByPercentIncreaseToScore()
'
' OccurencesByPercentIncreaseToScore Macro
' Macro recorded 4/9/2010 by Chris Greenlee
'
' Keyboard Shortcut: Ctrl+p
'
    ActiveWindow.Visible = False
    Windows("QA Project - Automated Charts v1.1.xls").Activate
    Sheets("Occurences").Select
    Range("A1:D58").Select
    Range("D58").Activate
    Selection.Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("Chart").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Values = "=Occurences!R2C4:R12C4"
End Sub

The problem occurs with this line Windows("QA Project - Automated Charts v1.1.xls").Activate