кнопка-меню для перехода на листы

[DOC_GREEN]

есть книга в ней 20 листов, в книге содержатся разная информация разного характера, уже надоедает искать вкладку, толе в начале толе в конце
(проблема в том что у меня строки, столбцы все разные, с помощью гипер сылок получается бардак с колонками и строками
объясните как это делается, я не нашел решения нигде

Нужно что бы была кнопка при нажатии (желательно 2 раза) на нее появлялась меню с именами листов, нажимая на них переходил на нужный лист

[аналитика]

вот на скорую руку

[doober]

Еще вариант на скорую.Можно сделать конечно красиво.если подойдет
Жмем правую кнопку мышки.выбираем пункт Листы.Двойной клик по имени листа

[nilem]

На всякий случай
http://www.planetaexcel.ru/tip.php?aid=29

[Tatiana00701]

Сообщение от аналитика

вот на скорую руку

Как это сделать???

[VictorM]

Как это сделать???

Скопировать модули кода и формы в свой проект

[Gven612]

Сообщение от аналитика

вот на скорую руку

Пыталась сделать по подобию, но в VB совершенно не разбираюсь. Скорее всего что-то делаю не так.

[alex77755]

В модуль "ЭтаКнига" вставь код. Появится меню (в 2003). В версиях выше во вкладке "Надстройки" меню "Листы)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim L
Dim S As Object
Dim FI
Dim ТекстПроцедуры
Dim xlmodule As Workbook 'Object
Set xlmodule = ActiveWorkbook

'удаляем все макросы из Лист1  (других макросов сюда не ложить)
On Error Resume Next
For L = xlmodule.VBProject.VBComponents(1).CodeModule.CountOfLines To 1 Step -1
FI = Left(xlmodule.VBProject.VBComponents(1).CodeModule.Lines(L, 1), 17)
 Debug.Print xlmodule.VBProject.VBComponents(1).CodeModule.Lines(L, 1)
If FI = "Public Sub Налист" Then
 xlmodule.VBProject.VBComponents(1).CodeModule.DeleteLines L, 3
 End If
Next L
Application.CommandBars("Worksheet Menu Bar").Controls("Листы").Delete
Set S = Application.CommandBars("Worksheet Menu Bar")
With Application.CommandBars("Worksheet Menu Bar")
'Создание строки меню Файл
        With .Controls.Add(Type:=msoControlPopup)
                .Caption = "&Листы"
                With .Controls
                        For L = 1 To Sheets.Count
ТекстПроцедуры = "Public Sub Налист" & L & "()" & vbCrLf & "Sheets(" & """" & Sheets(L).Name & """" & ").Select" & vbCrLf & "End sub"
  xlmodule.VBProject.VBComponents(1).CodeModule.AddFromString ТекстПроцедуры
                         With .Add(Type:=msoControlButton)
                        .Caption = Sheets(L).Name
                        .OnAction = "ЭтаКнига.Налист" & L
                     End With
                Next L
                End With
        End With
End With
End Sub