Open Embedded file or Object using VBA

Sub ActivateObj()
'// Opens object
Dim oEmbFile As Object
Application.DisplayAlerts = False
'// Either reference the OLEObject by index
'// or by name if you Name the Object
'// Note:
'// Sheets(2) substitute with your Sheet
Set oEmbFile = ThisWorkbook.Sheets(1).OLEObjects(1)
    oEmbFile.Verb Verb:=xlPrimary
Set oEmbFile = Nothing
Application.DisplayAlerts = True
End Sub