Alternative

Option Explicit

Sub x()
ActiveSheet.Next.Select
End Sub
Sub y()
ActiveSheet.Previous.Select
End Sub