Hallo,

endlich beschreibst du mal, was passieren soll: der Windows explorer soll sich öffnen  - ja woher soll ich das denn wissen ?!?!?!?!!!

Den Windowsexplorer kannst du so öffnen:

Sub Beispiel()
    Dim Pfad As String
    Pfad = "C:\Pfad\2015\"
    Shell "explorer.exe /e, " & Pfad, vbMaximizedFocus
End Sub

Grüße, Ulrich