Hücredeki veriye göre klasör açma(aynı zamanda tarihe göre)

[sratacc]

Private Sub HÜCREYEGÖREKLASÖRÜAÇ_Click()
DOSYA = "D:\AAA\YAZIŞMA DOSYALARI\2016\" & Selection.Value
If DOSYA <> "" Then
CreateObject("Shell.Application").Open (DOSYA)
End If
End Sub

Yukarda verdiğim kod ile, seçili hücredeki değere göre klasör açıyorum, ancak 2014, 2015, 2016 tarihlerine göre dosyaları açtırmam için ayrı ayrı kod yazmam gerekti. Tek kod ile belirli satırdaki tarih verisine göre klasörü açtırabilirmiyim acaba.

Yapmak istediğim,

A1 Hücresi seçili iken(hücre değeri ''sencer melik''), H1 hücresindeki 10,02,2015 formatındaki tarih verisi bulunuyor.

D:\AAA\YAZIŞMA DOSYALARI\2015\ yolundaki ''sencer melik'' klasörünü açması

 

[hamitcan]

DOSYA = "D:\AAA\YAZIŞMA DOSYALARI\" & Year([H1]) & "\" & Selection.Value

 

[sratacc]

DOSYA = "D:\AAA\YAZIŞMA DOSYALARI\" & Year([H1]) & "\" & Selection.Value

Hocam h1 ile h1000 arasindaki verilerden herhangi birinin calismasi adina ne yapabiliriz h:h denedim olmadi