dosya ekleme yolu hatalı

[traveller_52@hotmail.com]

ekteki makroda dosya eklem e işleminde ve outlook u açmada bir sıkıntı var sanırım yardımcı olabilirmisiniz şimdiden teşekkür ederim
Sub MAİL()
Dim sh As Worksheet
Set sh = Worksheets("STOKKODLU")
yol = ThisWorkbook.Path
isim = sh.Range("X83").Value
sh.Select
sh.Range("B1:BE93").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _
& "\" & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Sheets("STOKKODLU").Range("d97")
.CC = "XXxxXXxxXX"
.Subject = "Adres Bazlı Sayım Raporu"
.Body = "Sayın yetkili, Mağazanızda yapılan sayım neticesinde ekli dosyadaki sayımı kontrol etmenizi rica ederiz...."
.Attachments.Add :Filename=yol _
& "\" & isim & ".pdf" "sh.Range("X83").Value"
.send
.Display
End With
'***
Set objMail = Nothing

Set objOutlook = Nothing
'***
Range("G3").Select
End Sub

 

[traveller_52@hotmail.com]

pdf olarak kaydedilen dosyayı mail ekleyemiyorum yardımcı olursanız çok sevinirim
Teşekkürler

 

[traveller_52@hotmail.com]

Birde sh.Range("B1:BE93").Select bu aralıkta sayfayı kaydediyor sayfa örneğin sh.Range("B1:k75").Select e kadar oldu geri kalan yerler boş sadece dolu olanları göndermesini nasıl sağlarım
Teşekkürler