Hello,

I've got this piece of code, supposed to open external files (which are flash videos):


Public Sub Open_External_File()
Dim sExternal_File, sShape, sPath As String

sShape = Application.Caller 'the Shapes are named video01, video02, video03...
sExternal_File = sShape & ".exe"
sPath = "C:\" & sExternal_File

Application.DisplayAlerts = False
ActiveWorkbook.FollowHyperlink Address:=sPath
Application.DisplayAlerts = True
End Sub


The code kinda works, I mean, when I click in any of the shapes I've got along my sheet, the proper file is opened and the video is shown... BUT, before that happens, excel keeps showing me an alert message, that "Application.DisplayAlerts = False" is supposed to prevent.
Intriguing: while running tests, I've tried to open images (.jpg) instead of exe files.
That works perfectly. No alert is shown...