CSV Format beim öffnen trennen mit Semikolon

Sub DMCHeckliste()
'
' DMCHeckliste Makro
' Makro am 24.11.2006 von Martin Manhart aufgezeichnet
'
Dim Artikelnummer
Artikelnummer = Range("U13").Value
    Workbooks.OpenText Filename:="J:\AKTIONEN\APS_DemandPointCheck.CSV", _
      DataType:=xlDelimited, Semicolon:=True
    Selection.AutoFilter
    Selection.AutoFilter Field:=6, Criteria1:=Artikelnummer
End Sub