untenstehender Code wird verwendet um per klick in den Hauptordner zu gelangen. In diesem Ordner befinden sich jedoch viele Unterordner (z.zt. von ACT001 bis ACT060). kann mir jemand sagen wie der Code aussieht damit ich Direkt in den Ordner gelange welcher angeklickt wurde?
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("d2:d500")
If Not Intersect(Target, Bereich) Is Nothing Then
Application.Dialogs(xlDialogOpen).Show "C:\users\our\documents\Zusatzarbeiten\"
End If
End Sub
Danke schon jetzt für eure Unterstützung.Gruß
Hartmut