Как в MediaPlayer проиграть случайный трек после окончания предыдущего

[Mmo]

Хочу, чтобы по окончании трека MediaPlayer автоматически начал проигрывать следующий, со случайным номером, который выставляется в ячейке. Попытка использовать следующий код:

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
    If NewState = 8 Then   ' Событие 8 - конец трека
        sn = Worksheets("Playlist").Cells(1, 7) 'В ячейке стоит рандомное число - номер следующего трека
        WindowsMediaPlayer1.URL = Worksheets("Playlist").Cells(sn, 3) ' Ссылка на нужный файл
        WindowsMediaPlayer1.Controls.Play ' На всякий случай, чтобы всё-таки проигрывалось
    End If
End Sub

В итоге по окончании трека ссылка на файл автоматически меняется, но плеер замирает. Чтобы музыка пошла, надо нажать play.
Попробовал подебажить - после команды WindowsMediaPlayer1.URL = Worksheets("Playlist").Cells(sn, 3) трек начинает проигрываться и эта процедура вызывается ещё 3 раза: с кодами 9, 10 и снова 9 и после выхода из последней трек останавливается.
В общем, я уже голову сломал - не понимаю, почему так и как это исправить. Помогите, люди добрые )))

[Скрипт]

Mmo, в каком модуле у вас находится событие Private Sub WindowsMediaPlayer1_PlayStateChange (ByVal NewState As Long).

Есть следующие виды модулей в "VBA":

1. стандартный модуль;
2. модуль класса;
3. модуль формы;
4. модуль объекта программы "MS Office".

[Mmo]

Скрипт, Модуль листа, на котором находится объект MediaPlayer. Я так понимаю, это к 4 пункту относится.

[Скрипт]

Mmo, а в Tools - References... вы какую библиотеку подключили для работы с "Media Player"?

[Mmo]

Скрипт, а есть какие-то варианты? wmp.dll вроде как.

[Скрипт]

Mmo, у меня здесь: Tools - References... 4 библиотеки, связанные с "Windows Media Player":

1. Windows Media Player (wmp.dll);
2. Windows Media Player (msdxm.tlb);
3. Windows Media Compatibility Layer;
4. Windows Media Player Launcher.

[Mmo]

Скрипт, ну собсно у меня wmp.dll подключена. Я уже ответил.

[Скрипт]

Mmo, у вас на Excel-листе находится "WMP"?

[Mmo]

Скрипт, да

[doober]

Допросы закончены?
Нашел пока такой выход.
По другому после старта останавливается.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub CommandPlay()
       sn = Worksheets("Playlist").Cells(1, 7) 'В ячейке стоит рандомное число - номер следующего трека
        WindowsMediaPlayer1.URL = Worksheets("Playlist").Cells(sn, 3) ' Ссылка на нужный файл
        For n = 1 To 10
        Sleep (100)
         DoEvents
        Next
 
End Sub
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
    Static i As Integer
    If i >= 8 Then
        i = i + NewState
    End If
    If NewState = 8 Then
        i = NewState
    End If
    If i = 18 Then
        i = 0
        CommandPlay
    End If
End Sub