Attaching PDF to Lotus Notes email. PDF name is variable.

Maybe:

Sub joee74xx()
Dim x As String

x = "C:\Users\joeellis\Desktop\" & "Quotation No." & Range("H8").Value & " - " & Range("F4").Value & " - " & Range("H7").Value & " - " & Range("G16").Value
Set objEmbed = objAttach.EmbedObject(1454&, "attachment1", x & ".pdf")


End Sub