Thanks. That also worked.

Last one...

Private Sub MP_PositionChange(ByVal oldPosition As Double, ByVal newPosition
As Double)
Application.Cells(1, 1) = newPosition
End Sub

Needs to go to WindowsMediaPlayer. And need to reference worksheet sheet
'results' rather than the same sheet.

Any idea?