Sub Test_Exe()
' Execute an exe file attached in sheet1
'
ActiveSheet.Shapes.Range(Array("Object 1")).Select
Selection.Verb Verb:=xlPrimary
End Sub
' Execute an exe file attached in sheet1
'
ActiveSheet.Shapes.Range(Array("Object 1")).Select
Selection.Verb Verb:=xlPrimary
End Sub
Views 2,049
Downloads 281
CodeID
DB ID
![](/Assets/UsersPics/userpic_3M62Ihum9O.jpg)
ANmarAmdeen
642
Revisions
v1.0
Friday
April
16
2021
![](/Assets/img/_load903.gif)