Playing a Window Media Player's playlist in Excel

[JulianChen]

I have an Excel file embedded Window Media Player Control using a pivot table slicer to populate the selected files on column A starting cell "A33". I also wrote a VBA script as follows in a hope to play the file in the list one after another.
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Range("A33").Select
Do While Not IsEmpty(ActiveCell)
Text1 = ActiveCell.Value
WindowsMediaPlayer1.URL = Text1
WindowsMediaPlayer1.Controls.Play
Selection.Offset(1, 0).Select
Loop
End Sub

Unfortunately, after running through the loop WindowMediaPlayer1 just played the last one from the list. Is there anyone could spare some time to take a look at this case and help me fix it? I would appreciate it.
Best regards,
Julian Chen

 

[JulianChen]

Sorry, I forgot to mention that I was running on Excel 2013 in 64-bit operating system.