You can load up pbejse's (layorder) routine here [there are other such routines elsewhere], which returns a list of paper-space Layout names in left-to-right order, and set the current tab to the first name in the resulting list with:
(setvar 'ctab (car (layorder)))
Kent Cooper, AIA