Создание списка листов и работа с ними

[timbussub]

Уважаемые, Просьба помочь с subjectом.
Значит есть листы в книге, надо создать форму с 2 списками:
1 список (не ComboBox а ListBox1) названий всех листов в книге с многовыборностью. При выборе каких либо названий листов их переносить (Add Item) в ListBox2, а после присвоить им значения Visible.
Плиз очень срочно!

[motorway]

За деньги устроит?

[IgorGO]

см.вложение

[timbussub]

Игорь, премного благодарен!

К сожалению WebMoney не завел еще.

[timbussub]

Теперь же бодаюсь с другой проблемой
Есть листы в книге, всех показывать не обязательно, только тот лист который(рые) выбрали в ListBox
например в содержании книги на листе1 дается перечень названий компаний
в столбце А
1. Бригантина
2. СоюзРемстройтехника
3. Северный ветер
4. Центр информации и публикаций
5. Ведущий вестник
6. Cisco Trading Inc
...
однако листы так не назовешь
Рядом в стобце B проставляем имена Листов
1. Brig
2. Soyuz
3. Sever
4. Center
5. Vestnik
6. Cisco

Конечно же в ListBox указываешь в RowSource или посредством AddItem полные названия компаний, а когда при выбори их в ListBoxe надо открыть именно Лист с именем данным в столбце B. Причем остальные же листы должны быть невидимыми, а только тот который выбрали.
Замудренно ли, бодаюсь ничего не могу сделать.

[doober]

Возможно этот код спасет голову от бодания

 Sub List_INIC()
 ListBox1.Clear
 
sl = Array("Бригантина", "СоюзРемстройтехника", "Северный ветер", "Центр информации и публикаций", "Ведущий вестник", "Cisco Trading Inc")
slW = Array("Brig", "Soyuz", "Sever", "Center", "Vestnik", "Cisco")

For n = 0 To 5 
ListBox1.AddItem sl(n)
ListBox1.List(ListBox1.ListCount - 1, 1) = slW(n)
Next
End Sub

Private Sub ListBox1_Click()
W_Name = ListBox1.List(ListBox1.ListIndex, 1) 'Это имя листа


End Sub

Private Sub UserForm_Activate()
List_INIC
End Sub

Замените на этот код

Private Sub ListBox1_Click()

On error resume next
W_Name = ListBox1.List(ListBox1.ListIndex, 1) 'Это имя листа
Worksheets(W_Name ).Visible=True
Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets
If sh.Name <> W_Name Then
sh.Visible=False
End If
Next

End Sub