スキルアップ・問題解決なら、モーグにおまかせ！

アクティブシートの次のシートや前のシートを選択する場合で、シート名に関係なく処理を行う場合にはNextプロパティーを使用します。
サンプルではメッセージボックスによって次のシートもしくは前のシートかをユーザに選択させ、Nextプロパティーで対象シートを取得し、アクティブにします。

Sub NextOrPrevious()

    Dim intChoice As Integer
    Dim strMsg As String
    
    'メッセージボックスのPrompt表示用文字列
    strMsg = "次のシートを選択 : Yes" & Chr(10) & _
        Chr(10) & "前のシートを選択 : No"
    
    'メッセージボックスで次のシートか前のシートかを指定
    intChoice = MsgBox(strMsg, vbYesNoCancel)
    
    'Yesの場合は次のシートを、Noの場合は前のシートを選択
    Select Case intChoice
        Case vbYes: ActiveSheet.Next.Activate
        Case vbNo: ActiveSheet.Previous.Activate
        Case Else: Exit Sub
    End Select

End Sub

※NextプロパティーはRangeに対しても使用できます｡この場合にはシート上でTabキーを押したのと同じ動作になります。（セルの編集中を除く）

Sub NextOrPreviousCell()

    ActiveCell.Next.Select

End Sub