Range funktioniert nicht bei auto open

Guten Abend zusammen,

Problem: Makro funktioniert bei manueller Betätigung aber nicht bei auto_open oder bei Private Sub Workbook_Open()

Hier ist der Code, dass Ihr Euch das besser vorstellen könnt:

Sub sort()
'
' sort Makro
'

'
Range("A8:A15773").Select
ActiveWorkbook.Worksheets("HS2_lower_kurz").sort.SortFields.Clear
ActiveWorkbook.Worksheets("HS2_lower_kurz").sort.SortFields.Add Key:=Range( _
"A8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("HS2_lower_kurz").sort
.SetRange Range("A8:A15773")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Excel-Version: 2007, kann aber auch auf 2003 zurück gehen wenn es daran hängt.

Ziel ist, die Felder A8 bis A15773 zu markieren und die Werte zu sortieren. Bei automatischer Ausführung bekomme ich eine Fehlermeldung in der Range-Zeile am Anfang. Wo liegt mein Fehler?

Das alles ist ein Teil einer automatischen Auswertung, deshalb kann ich zwischendurch nicht manuell das Makro starten.

Würde mich riesig über Hilfe freuen, ich komme einfach nicht mehr weiter.

Viele Grüße
Bifi

Private Sub Workbook_Open()
    Call SortColumnA
End Sub

Sub SortColumnA()
    With Sheets("HS2_lower_kurz")  
        .Range("A8:A15773").Sort Key1:=.Range("A8"), Header:=xlNo  
    End With
End Sub