Per the advice at this question about jumping to next input cell, I added the code
SetOptions[EvaluationNotebook[],
CellEpilog :> SelectionMove[EvaluationNotebook[], Next, Cell]
]
to my initialization block. However, this sends me to the next cell on Shift+Enter instead of the next input cell. Since the notebook is a demonstration file for class, there is a text cell between each pair of input cells. Is there a way to jump to the next input cell instead of next cell.