Macro to move down a set number of rows

On a Calc spreadsheet there is a slider on the left. Each time I click on the small arrow at the bottom, the spreadsheet moves up exactly one row. Is there a macro that effectively does the same thing?

Sub scrollViewOneRowDown()
On Local Error Goto fail REM Will work if ThisComponent not is a spreadsheet document.
cCtrl = ThisComponent.CurrentController
cCtrl.FirstVisibleRow = cCtrl.FirstVisibleRow + 1
fail:
End Sub

dunno why it shouldn’t work in calc, tried in 6.1.6.3, ok, focus leaving page but scroll as intended, [edit:] sorry, the comment about ‘not is a spreadsheet’ is for the fail only? didn’t test that … [/edit:]

if you need other constructions the samples there: link text might be of help …

thank you! Perfect!!!

Please use the add a comment option next time in such a case.
This is not a traditional forum (sigh) but a Q&A site where the Answer option should only be drawn if an actual answer to the original question is intended.
“Perfect” answers are supposed to be “accepted” by the questioner clicking the (grey) checkmark next to its top left corner. The mark will get green then, and will also be shown in the topics survey to help other users to find valid solutions to question they have in mind.