Fehlersuche im Sortier-Befehl

.Range("A2").Select"

Sub AccessImport()
Dim importdatei As String
Dim objADO As Object, objWS As Worksheet
Dim i As Long
importdatei = Application.GetOpenFilename
Do Until importdatei  "Falsch"
importdatei = Application.GetOpenFilename
Loop
Set objWS = ActiveWorkbook.Sheets("AccessDBBC")
With objWS
.Range("A1", .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row, 2)).ClearContents
Set objADO = ADO_Access(importdatei, "Tab_VerschrottungTeile_Nr", "von_Barcode")
.Range("A2").CopyFromRecordset objADO
.Range("A1:A90000").RemoveDuplicates Columns:=Array(1)
.Range("A1").Value = "Schrottliste"
.Range("A1").Font.Bold = True
.Range("A2").Select
.Range("A2:A5000").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:= _
1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With
Set objADO = Nothing
Set objWS = Nothing
End Sub