Code: Select all
Public wmp As Object
Sub Test()
Dim r As Long
Set wmp = CreateObject("new:6BF52A52-394A-11D3-B153-00C04F79FAA6")
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
With wmp
.URL = ThisWorkbook.Path & "\Media\" & Cells(r, 1).Value & ".mp3"
.Controls.Play
End With
DoEvents
Application.Wait Now + TimeValue("00:00:02")
Next r
End Sub
https://stackoverflow.com/questions/63701170/
but this stores all the files then play them all .. I need to set waiting time between each file and at the same time I need to select the cell that is playing ..