Tuş Kombinasyonları Çalışmıyor

[ZuCChiNi]

Bugün bir Excel dosyasında 6 tane makro kaydettim.
Bunları 6 butona atadım. Her buton farklı sütunlara göre sıralama yapıyor.
İşimi bitirip dosyayı kaydettikten sonra tekrar açtığımda CTRL+S, CTRL+F tuş kombinasyonlarının çalışmadığını farkettim.
Diğer tuş kombinasyonları çalışıyor.
Başka dosyalarda çalışıyor ama sadece bu dosyada çalışmıyor.
Makro kaydetmekten başka bir işlem yapmadım.
Dosyayı eski haline de getiremiyorum çünkü yedeği yok.
Sebebi ne olabilir acaba?

Kaydettiğim Makrolar

Sub Soyleyen_Album_YIL()
'
' Soyleyen_Album_YIL Makro
'
'
    Columns("C:AZ").Select
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "F2:F10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "G2:G10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "I2:I10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ArşivMP3").Sort
        .SetRange Range("C1:AR10001")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("F2").Select
End Sub
Sub Soyleyen_YIL_Album()
'
' Soyleyen_YIL_Album Makro
'
'
    Columns("C:AZ").Select
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "F2:F10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "I2:I10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "G2:G10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("ArşivMP3").Sort
        .SetRange Range("C1:AR10001")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("F2").Select
End Sub
Sub Album_Soyleyen_YIL()
'
' Album_Soyleyen_YIL Makro
'
'
    Columns("C:AZ").Select
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "G2:G10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "F2:F10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "I2:I10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ArşivMP3").Sort
        .SetRange Range("C1:AR10001")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("F2").Select
End Sub
Sub Album_YIL_Soyleyen()
'
' Album_YIL_Soyleyen Makro
'
'
    Columns("C:AZ").Select
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "G2:G10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "I2:I10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "F2:F10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ArşivMP3").Sort
        .SetRange Range("C1:AR10001")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("F2").Select
End Sub
Sub YIL_Soyleyen_Album()
'
' YIL_Soyleyen_Album Makro
'
'
    Columns("C:AZ").Select
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "I2:I10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "F2:F10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "G2:G10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("ArşivMP3").Sort
        .SetRange Range("C1:AR10001")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("F2").Select
End Sub
Sub YIL_Album_Soyleyen()
'
' YIL_Album_Soyleyen Makro
'
'
    Columns("C:AZ").Select
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "I2:I10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "G2:G10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    ActiveWorkbook.Worksheets("ArşivMP3").Sort.SortFields.Add Key:=Range( _
        "F2:F10001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ArşivMP3").Sort
        .SetRange Range("C1:AR10001")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("F2").Select
End Sub