making slide active

[Waubain]

I progress through my slides using the PageUp/PageDown keys.

I open a userform from a slide with a command button(cmdChoose). I then close the userform with a command button(cmdOK) with the following code

Private Sub cmdOK_Click()
Unload frmName ' unloads form from memory
End Sub

cmdChoose remains highlighted and I cannot advance the slide with the Page Down key. If I click on the slide it will advance.

Is there a line of code to add to this routine to make the slide active so I can page down. I have tried several items with ActivePresentation but can't get it correct.

Thanks.

[John Wilson]

Have you tried NOT using a command button (use a shape and give it an action of run macro)