Sorteren kolommen

[Jaminonp]

Beste,

Ik heb de volgende sorteer functie opgenomen, deze werkt goed todat ik het bestand afsuit en opnieuw opstart.
Als ik het bestand vervolgens weer opstart krijg ik een foutmelding dat het bestand beschadigd is.
zodra ik he bestand opnieuw opsla en overschrijf werkt het weer.
Wat is er fout aan deze functie

ActiveWorkbook.Worksheets("sheet_A").Sort.SortFields.Add Key:=Range("A1:CJ1" _
), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Gage_ID,Description,Gage_SN,Storage_Location,Current_Location,Next_Due_Date,Status", _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("sheet_A").Sort
.SetRange Range("A1:BB10000")
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With

Alvast bedankt