■ ボタン押下でシートを切り替える
ボタン押下でシートを切り替える場合、以下の関数を呼び出せばシートが切り替わるようにします
ただし、ボタンの名前とシートの名前を同じにしておく必要があります

シート切替の前に CheckButton 関数でボタンによりマクロが呼び出されたことを確認します
ワークシートから直接呼び出す関数となるため、宣言は Public になります
Public Sub ChangeSheet()

    On Error GoTo PROC_ERROR
    If (Not CheckButton) Then Exit Sub
    ThisWorkbook.Worksheets(Application.Caller).Select
    Exit Sub

PROC_ERROR:

    MsgBox "予期しないエラーが発生しました。" & vbCrLf & vbCrLf & _
            Format$(Err.Number) & ") " & Err.Description, vbCritical, "エラーメッセージ"

End Sub