VBA- Datei nicht gefunden

Public Sub StatusShipment()
Dim sDateiname As String, WSh As Worksheet
Set WSh = ThisWorkbook.Sheets("Status-S.")
' PDF erzeugen
sDateiname = "Status Shipment_" & Worksheets("A 1").Range("C8") & "_" & Worksheets("A 1").Range("S16") & "_" & Worksheets("A 1").Range("C7").Value & ".pdf"
WSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
Quality:=xlQualityStandard, OpenAfterPublish:=False
' Mail kreieren
With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector                         ' sorgt für die Signatur
.Subject = "Status Shipment_" & Worksheets("A 1").Range("C6") & "_" & Worksheets("A 1").Range("S16") & "_" & Worksheets("A 1").Range("C7")     ' Betreff
.Body = "Dear Sirs," & vbCr & vbCr _
& "Text1" & Worksheets("A 1").Range("C8") & vbCr _
& "Text2" & vbCr _
'& vbCr & .Body                  ' Mailtext mit Signatur
If Dir$(sDateiname)  "" Then .Attachments.Add sDateiname
.Display
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub