Создаю тест в powerpoint, захожу в бэйсик. что бы писать код, пишу код. Выдает ошибку. что делать?

код: Private Sub CommandButton1_Click()
SlideShowWindow(1).View.Next
End Sub
Ошибка : Sub or Function not defined