Sub oder Funktion nicht definiert in kleinem Makro

Sub oder Funktion nicht definiert.
Er bleibt dann auf "auswaehlen" stehen.
Könnt Ihr mir helfen, wie die Zeile aus sehen soll.
Besten Dank für Eure unterstützung und einen schönen Tag.
urs


Sub SelectDatenart()
Dim strRange As String
strRange = "DatenartAusSpalte"
Application.ScreenUpdating = False
Sheets("BasicInformation2").Activate
Auswaehlen (strRange)
'Calculate
Application.ScreenUpdating = True
End Sub