Форма - поиск листа в книге

[VictorM]

Здравствуйте, уважаемые!
Есть рабочая книга, калькуляции. Уже сейчас в ней 120 листов, дальше может быть еще больше. Для удобства поиска и перехода на нужный рабочий лист, сделал небольшую форму (использовал некоторые фрагменты кодов с форума, не могу уже сказать точно, у кого и что брал, так что пусть простят меня авторы, что не указываю копирайты )
Лист можно выбирать сразу из списка ListBox или же, когда листов много - в строке поиска.
А теперь собственно вопрос.
Для поиска я формирую список листов на листе "Рабочий" и все отлично работает, но можно ли избавиться от формирования этого списка на листе?
т.е. помещать ListBox1.List в переменную, массив и уже оттуда считывать данные для заполнения ListBox в процессе поиска?
Поиском по форуму похожего что-то не нашел (а может плохо искал))
Спасибо.

[nilem]

Мне кажется так:

Option Explicit
Dim arrSh()

Private Sub UserForm_Initialize()
Dim i&, j&: j = ThisWorkbook.Sheets.Count
ReDim arrSh(1 To j)
For i = 1 To j
    arrSh(i) = Sheets(i).Name
Next
Me.ListBox1.List = arrSh
End Sub

Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Select
Me.Caption = ActiveSheet.Name
End Sub

Private Sub TextBox1_Change()
Dim i&: Me.ListBox1.Clear
If Len(TextBox1) = 0 Then Exit Sub
For i = 1 To UBound(arrSh)
    If UCase(arrSh(i)) Like "*" & UCase(Me.TextBox1) & "*" Then Me.ListBox1.AddItem arrSh(i)
Next i
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload Me
End Sub

Private Sub cb_OK_Click()
Unload Me
End Sub

Кнопка "Обновить" вроде бы и не нужна.

[kuklp]

Вить, мож тебя такой вариант заинтересует. Комбы на листе и на панели инструментов.

[VictorM]

nilem, kuklp большое спасибо!
Буду сейчас пробовать.

Кнопка "Обновить" вроде бы и не нужна.

Да эта кнопка у меня собственно для того, чтобы можно было перейти из режима поиска в текстбоксе к полному списку листов. Скорее всего она потом исчезнет))

[VictorM]

nilem это именно то, что я хотел!!! Спасибо большое за код и за науку))
kuklp очень интересное решение. В копилку!


P.S. Это, скорее всего, модераторам:
Почему-то "весы" не срабатывают.
Пишет "сначала добавьте отзыв другому пользователю", хотя я уже добавлял "другому"
Причем это уже не первый раз такое у меня

[agregator]

VictorM, здравствуйте. Может подойдет ваш ответ на Оглавление для книги на форме

[VictorM]

Да, это один из первых вариантов был у меня, и до последнего времени он меня тоже вполне устраивал. А сейчас вот назрела необходимость в такой форме которая рассматривается в топике.
Листы катастрофически быстро добавляются
Трудно стало искать по списку, вот и решил сделать с поиском.