Explorer öffnen

Sub test()
Dim a$
a = "C:\Daten\DATEN"
Shell "explorer.exe /E," & a
End Sub

Funktioniert gut, leider bleibt das Fenster aber unten in der Symbolleiste hängen.
Was fehlt, damit ich den Explorer direkt auf dem Bildschirm bekomme?
Vielen Dank und Gruß
Piet