Excel Müşteri Takip Programında Aldığım hata

Merhaba Arkadaşlar;

Kendime Ufak Bir Müşteri Takip Programı Yapıyorum.
Yeni Müşteri Girişi Yapacam O Müşteriyi Proje Dosyasında Yeni Kitap olarak Kayıt edecek. Ve Ayrıyeten Onun ufak çaplı alacak verecek yani ön muhasebesini tutacagım.
Her sey Tamam Yeni kayıt Yapıyor Proje Dosyası içine yeni müşteri dosyasınıda oluşturuyor fakat sonra yeni oluşturduğu dosyayı bulamıyor.Dosya Yolunuda Verdim.

Yardımcı Olacak Biri Varmı Acaba.

Teşekkürler.

Proje dediğin klasör mü açıyorsun, klasör oluşturmak için örnek kod.
Web de bulmuşrum, paylaşıyorum.

Sub KlasorOlustur()

Dim i As Long
Dim klasor, bak, datakontrol
Dim olusturulacak_klasor As String, dataklasoru As String

Set klasor = CreateObject("Scripting.FileSystemObject")

dataklasoru = ThisWorkbook.Path & "DATA"
datakontrol = klasor.FolderExists(dataklasoru)
If datakontrol <> True Then
klasor.CreateFolder dataklasoru
End If
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row

olusturulacak_klasor = dataklasoru & Cells(i, 2).Value & " " & Cells(i, 3).Value

bak = klasor.FolderExists(olusturulacak_klasor)

If bak <> True Then
klasor.CreateFolder olusturulacak_klasor
Cells(i, 5).Hyperlinks.Add Anchor:=Cells(i, 5), Address:=olusturulacak_klasor, TextToDisplay:="Klasörü Aç"
End If
Next i

End Sub

Cevap İçin Çok Teşekkürler Ederim Nasıl Yaptım bilmiyorum ama Biraz Önce Uğraşırken yaptım.. Allah Razı Olsun.