I tried to get this done, but unfortunately not

I can able to open objects and save it my document but you need to
save it in a specified location.

try this, i will try to find this answer.

Sub emdb()
Dim obj As Object
For Each obj In ActiveSheet.Shapes
obj.Select
Selection.Verb
Application.SendKeys "+^(s)", True
Application.SendKeys ("{TAB} + {TAB} + {ENTER}")
Application.SendKeys "^(W)", True

Next

End Sub



On Oct 23, 2:21*pm, Sandeep Warrier wrote:
Hi All,

I have a workbook that contains embedded pdf / html files in a column
(never column A). The column to its immediate left contains a path.

Is there any way where I can save the embedded files in the path
provided?

Cross posted at :-http://www.mrexcel.com/forum/showthread.php?t=401819

Thanks,

Sandeep