Welcome to the forum! I am not sure if you want a path from the pdf file or the workbook. If the former, then one can parse the SourceName if the file is linked. e.g.
Sub AddPDFs()
Dim o1 As OLEObject, o2 As OLEObject
Set o1 = ActiveSheet.OLEObjects.Add(Filename:="X:\PDF\001_Job21GreaterAmerica-1.pdf", _
Link:=False, DisplayAsIcon:=False)
Set o2 = ActiveSheet.OLEObjects.Add(Filename:="X:\PDF\001_Job21GreaterAmerica-1.pdf", _
Link:=True, DisplayAsIcon:=False)
Range("A1").Select
o1.Top = Range("A1").Top
o1.Left = Range("A1").Left
o2.Top = Range("J1").Top
o2.Left = Range("J1").Left
'MsgBox o1.SourceName 'No sourcename, errors.
MsgBox o2.SourceName
MsgBox o2.Name
o2.Name = "o2"
MsgBox o2.Name
'o1.Activate
o2.Activate
End Sub
Otherwise, browsing to a folder and picking a file in a dialog can just navigate to ThisWorkbook.path first.
Bookmarks