Sorry you need to change this bit:

lnPage = 1
FOR i = 1 TO THISFORM.pgf.PAGECOUNT
lnPage = IIF(THISFORM.pgf.ACTIVEPAGE = THISFORM.pgf.PAGECOUNT, ;
1, THISFORM.pgf.ACTIVEPAGE + lnPage)
IF THISFORM.pgf.Page(lnPage).enabled && whatever property your using to identify it as being disabled
* the page is enabled go to it

THISFORM.pgf.ACTIVEPAGE = lnPage
EXIT
ENDIF
lnPage = lnPage + 1
NEXT