Pdf klasör yolunu hücrede belirleme

[excellkurdu]

Merhabalar,
Aşağıdaki kod dosyanın bulunduğu aynı klasöre PDF kaydetmektedir. Amacım BB52 hücresinde kendim belirlediğim dizin içerisine kaydetmek. Yardımcı olursanız sevinirim.

'-----------------------Klasor Oluştur----------------------------
Set s = Sheets("ServisFORMU")
klasor = s.Range("BB52").Value
MkDir klasor & "Pest"
'-----------------------PDF KAYDET----------------------------
Sheets("ServisFORMU").Select
dosya_adı = Cells(1, "a").Value
If dosya_adı = "C:\deneme\" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
'a = MsgBox("hkjhjkhkj", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'MsgBox "kjhkjhkjhkj sonnnn "
End If
If a = vbNo Then
'MsgBox "İşlemi İptal Ettiniz.!"
End If

şu kısımda takılıyorum : ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _