I am an occupational therapist, and I am trying to create a typing program for children using PowerPoint.

I have a vba for shuffling slides and I have a vba to move onto the next slide once the correct letter has typed.

My issue is that the user needs to click on the text box on each slide manually, and for some of the children I work with that would make things to complicated to understand.

I have put a post on /answers.microsoft.com, I have been given the code to move on when the correct key is selected:

`*Private Sub TextBox1_Change() 
    Dim lSlideIndex As Long 
    If TextBox1.Text = "X" Then 
        lSlideIndex = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex 
        ActivePresentation.SlideShowWindow.View.GotoSlide (lSlideIndex + 1) 
    End If 
End Sub *`

Although there seems to be some issues with this code when using it with the shuffle slide code:

`*Sub ShuffleSlides()
FirstSlide = 2
LastSlide = ActivePresentation.Slides.Count

Randomize

For i = FirstSlide To LastSlide
    RSN = Int((LastSlide - FirstSlide + 1) * Rnd + FirstSlide)
    ActivePresentation.Slides(i).MoveTo (RSN)
Next i
End Sub*`

But the main thing I am looking for is a code to auto select the text box, could anyone help with that?

Thank you!