I'm using this to extract an OLE object, (Word document), from a worksheet;
Dim wsActive As Worksheet
Dim ws As Worksheet
Dim oOleObj As OLEObject
Dim oDoc As Object
Dim DestFolder As String
Dim sDocType As String
Dim lCnt As Long
If ActiveWorkbook Is Nothing Then Exit Sub...