Private Sub Workbook_AddinInstall()
  Dim MainMenu As Object
  Call Workbook_AddinUninstall
  Set MainMenu = Application.CommandBars("Worksheet Menu Bar").Controls("ツール(&T)").Controls.Add
  With MainMenu
    .Caption = "更新_全シート名列挙"
    .OnAction = "gRefreshWorksheetList"
  End With
  Set MainMenu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
  MainMenu.Caption = "全シート(&A)"
  Call gRefreshWorksheetList
End Sub

Private Sub Workbook_AddinUninstall()
  On Error Resume Next
  With Application.CommandBars("Worksheet Menu Bar")
    .Controls("全シート(&A)").Delete
    .Controls("ツール(&T)").Controls("更新_全シート名列挙").Delete
  End With
End Sub

Public Sub gRefreshWorksheetList()
  Dim target As Object
  Dim MainMenu As Object
  Dim SubMenu As Object
  Dim wscnt As Integer

  Set MainMenu = Application.CommandBars("Worksheet Menu Bar").Controls("全シート(&A)")
  For Each target In MainMenu.Controls
    target.Delete
  Next

  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    Set SubMenu = MainMenu.Controls.Add
    With SubMenu
      .Caption = target.Name
      .OnAction = "gActiveWorksheet" & Format$(wscnt, "00")
    End With
    wscnt = wscnt + 1
  Next
  Set MainMenu = Nothing
  Set SubMenu = Nothing
End Sub

Public Sub gActiveWorksheet00()
  Dim target As Worksheet
  Dim wscnt As Integer
  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    If Format$(wscnt, "00") = "00" Then
      target.Activate
      Exit For
    End If
    wscnt = wscnt + 1
  Next
End Sub

Public Sub gActiveWorksheet01()
  Dim target As Worksheet
  Dim wscnt As Integer
  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    If Format$(wscnt, "00") = "01" Then
      target.Activate
      Exit For
    End If
    wscnt = wscnt + 1
  Next
End Sub

Public Sub gActiveWorksheet02()
  Dim target As Worksheet
  Dim wscnt As Integer
  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    If Format$(wscnt, "00") = "02" Then
      target.Activate
      Exit For
    End If
    wscnt = wscnt + 1
  Next
End Sub

Public Sub gActiveWorksheet03()
  Dim target As Worksheet
  Dim wscnt As Integer
  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    If Format$(wscnt, "00") = "03" Then
      target.Activate
      Exit For
    End If
    wscnt = wscnt + 1
  Next
End Sub

Public Sub gActiveWorksheet04()
  Dim target As Worksheet
  Dim wscnt As Integer
  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    If Format$(wscnt, "00") = "04" Then
      target.Activate
      Exit For
    End If
    wscnt = wscnt + 1
  Next
End Sub

Public Sub gActiveWorksheet05()
  Dim target As Worksheet
  Dim wscnt As Integer
  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    If Format$(wscnt, "00") = "05" Then
      target.Activate
      Exit For
    End If
    wscnt = wscnt + 1
  Next
End Sub

Public Sub gActiveWorksheet06()
  Dim target As Worksheet
  Dim wscnt As Integer
  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    If Format$(wscnt, "00") = "06" Then
      target.Activate
      Exit For
    End If
    wscnt = wscnt + 1
  Next
End Sub

Public Sub gActiveWorksheet07()
  Dim target As Worksheet
  Dim wscnt As Integer
  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    If Format$(wscnt, "00") = "07" Then
      target.Activate
      Exit For
    End If
    wscnt = wscnt + 1
  Next
End Sub

Public Sub gActiveWorksheet08()
  Dim target As Worksheet
  Dim wscnt As Integer
  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    If Format$(wscnt, "00") = "08" Then
      target.Activate
      Exit For
    End If
    wscnt = wscnt + 1
  Next
End Sub

Public Sub gActiveWorksheet09()
  Dim target As Worksheet
  Dim wscnt As Integer
  wscnt = 0
  For Each target In ActiveWorkbook.Worksheets
    If Format$(wscnt, "00") = "09" Then
      target.Activate
      Exit For
    End If
    wscnt = wscnt + 1
  Next
End Sub