Turn off Popup

[Photomofo]

I'm trying to have a macro play a song but I keep getting a Popup that asks me to press OK before the song starts. Any advice?

Sub Play_Song()

Dim Song As String

Song = "C:\Users\Photomofo\Desktop\Music\" & Sheets("Timer").Range("B11")

Application.EnableEvents = False
Application.DisplayAlerts = False

ActiveWorkbook.FollowHyperlink Address:=Song

Application.DisplayAlerts = True
Application.EnableEvents = True

End Sub

 

[Photomofo]

Well... I solved the popup button with some different code. Anybody know how to tell Windows Media Player to stop playing with VBA?

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWNORMAL As Long = 1

Sub Play_Song()

    Call PlayMusic("C:\Users\Photomofo\Desktop\Music\" & Sheets("Timer").Range("B11"))

End Sub

Sub Stop_Song()

Dim ARG As String

ARG = "C:\Users\Photomofo\Desktop\Music\" & Sheets("Timer").Range("B11")


End Sub

Sub PlayMusic(strfile As String)

    If ShellExecute(0&, "Play", strfile, 0&, 0&, SW_SHOWNORMAL) < 33 Then
        
        MsgBox "Something Went Wrong", vbInformation
    
    End If

End Sub

 

[DanteAmor]

Check if the following works for you

Private Declare Function mciExecute Lib "winmm.dll" (ByVal Comando As String) As Long

Private Sub playsong()
  mciExecute "play " & "C:\Users\Photomofo\Desktop\Music\" & Sheets("Timer").Range("B11").value
End Sub

Private Sub stopsong()
  mciExecute "stop " & "C:\Users\Photomofo\Desktop\Music\" & Sheets("Timer").Range("B11").value
End Sub