hedef klasörü makroda tanımlamak

[nongeyikm]

Merhabalar,

Aşağıdaki makroda klasör hedefini belirtirken (c:\resimler gibi) veya source dosyanın içindeki bir klasörü hedef belirterek belirterek mümkün mü?

Örnek :
ana dosya c:\datalar\personel\personel.xls
hedef klasör c:\datalar\personel\resimler\ (bunun içindeki jpg dosyaları)

istediğim şey kısaca *.\resimler



Private Sub Image1_Click()
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Width = 200
Image1.Height = 200
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ImgBak As Range
Dim ImgYol As String

Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Width = 120
Image1.Height = 105

ImgYol = ThisWorkbook.Path & "\"
With Range("b3")
Set ImgBak = .Find(Range("b3").Value)
On Error Resume Next
If ImgBak Is Nothing Then
Image1.Picture = LoadPicture(ImgYol & "ResimYok.jpg")
Else
With ImgVar
On Error Resume Next
Image1.Picture = LoadPicture(ImgYol & Range("b1").Value & ".jpg")
If Err = 0 Then Exit Sub
Image1.Picture = LoadPicture(ImgYol & "ResimYok.jpg")
End With
End If
End With
Set ImgBak = Nothing

End Sub