Oluşturulan klasör uzantısına "köprü" yapmak

[bnmbnm]

Öncelikle herkese merhaba,

Excel makro programlamada yeni olduğum için bir noktada takıldım ve yardım almak istiyorum Problemim şu:
Bir sütündaki(bende c sütunu) isimlerin klasörlerini oluşturduktan sonra "m" sütününda isme karşılık gelen yere bu oluşturulan klasörlerin köprü bağlantılarının oluşturulması gerekiyor
Yazdığım klasör oluşturma makrosu şu şekilde :

Private Sub CommandButton3_Click()
Dim kls, yol, a
Set kls = CreateObject("Scripting.FileSystemObject")
For i = 2 To [a65536].End(3).Row
yol = "C:\" & Cells(i, "C")
a = kls.FolderExists(yol)
If a = True Then
Else
kls.CreateFolder yol
End If
Next i
MsgBox "Klasörler Oluşturuldu"
Set ds = Nothing
End Sub

Yardımcı olursanız çok sevinirim

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Dim kls, yol, a
    Set kls = CreateObject("Scripting.FileSystemObject")
    For i = 2 To [a65536].End(3).Row
        yol = "C:\" & Cells(i, "C")
        a = kls.FolderExists(yol)
[COLOR="Blue"]        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "M"), Address:=yol, _
        TextToDisplay:=Cells(i, "C").Value[/COLOR]
        If a = True Then
        Else
            kls.CreateFolder yol
        End If
    Next i
    MsgBox "Klasörler Oluşturuldu"
    Set ds = Nothing
End Sub

. . .

 

[bnmbnm]

Çok teşşekürler

Çok uzun süredir düşünüyorudum nasıl yapsam diye çokk teşekkür ederim yardımınız için eksiksiz çalışıyot