[megoldva] Makróátírás Calc -> Excel

Segítséget szerettem volna kérni, mert egy korábban a segítségetekkel megírt LibreOffice Calc makrónak Excelben is kéne futnia.
http://pastebin.com/mBv1P9V8 - Cél: "Ha egy cellán állok, akkor ugyanarra a pozícióra ugorjon a következő (v. előző) munkalapon."

Egy kedves tanítványom (Sz.D.) megoldotta:

Sub Ugrabugral_elore()
If ActiveSheet.Index = ActiveWorkbook.Sheets.Count Then Exit Sub
Application.Goto ActiveWorkbook.Sheets.Item(ActiveSheet.Index + 1).Cells(ActiveCell.Row, ActiveCell.Column), True
End Sub

Sub Ugrabugral_vissza()
If ActiveSheet.Index = 1 Then Exit Sub
Application.Goto ActiveWorkbook.Sheets.Item(ActiveSheet.Index - 1).Cells(ActiveCell.Row, ActiveCell.Column), True
End Sub

(Ha a True-k helyére False kerül, akkor nem áll rá az adott cellára a képernyő bal felső sarkával.)