Сложности с движением экселевского фокуса ввода из под ворда

[Sasha_Smirnov]

Выполню (находясь на активном листе) одну следующих двух инструкций.

SendKeys "^{PgUp}", True 'переход на предыдущий лист (если есть)
SendKeys "^{PgDn}", True 'переход на следующий лист (если есть)

Это, как легко догадаться, эмуляция нажатия клавиш соответственно Ctrl-PgUp или Ctrl-PgDn.

Вводя те же сочетания в режиме «магнитофона» (записи макроса), легко получить и более «солидный»

ActiveSheet.Previous.Select 'предыдущий лист
ActiveSheet.Next.Select     'следующий лист