EXCEL:シート移動マクロ

Sub 一番左のシート()
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets(1).Select
End Sub

Sub 一番右のシート()
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets(Sheets.Count).Select
End Sub