Вам электрик или специалист по Excel нужен?

Посмотрел Ваш файл - там черт ногу сломает. Врядли дождетесь мазохиста, к-рый захочет во всем этом рыться. Делайте простые примеры, разбив вашу задачу на несколько - быстрей получите ответ.  
"загружать список, расположенный на другом листе"... Самый простой способ, как мне кажется, сделать именованные диапазоны для списков. Тогда,например:  
ListBox1.RowSource = "Courses"' Имя диапазона  
И неважно на каком он листе.

Можно так заполнить без именованных диапазонов:  
ListBox1.List = Sheets("ИмяЛиста").Range("b2:b11").Value  
Список должен располагаться в столбец.

Тоже через ж. Сделайте три глобальных переменных и храните пром. значения в них. Хотя и этого не надо. Можно в модуле формы объявить переменные static.

Ну тут у вас можно конечно поспорить - за каким... нужно работнику оперативного персонала получать еще какие-то инструктажи, тем более от отв.руководителя или производителя, который может быть вовсе из сторонней организации? - Наверное с большого перепугу!  
Не знаю, можно ли так радикально переделывать форму бланка, как это проделано у вас? - Это все-таки утвержденная форма.  
А вообще, мое мнение - форму давно пора переделать! - Одних только таблиц с инструктажами сколько понаплодили... Один хрен их никто не проводит в реалии.

Замените текстом из файла ВЕСЬ текст модуля UserForm1.

Я сделал так  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Тогда Вам в каждую процедуру нужно пихать проверку:  
if intersect(activecell,Range("Перечисляем нужные ячейки")) is nothing then exit sub

А зачем Вам 2 одинаковых формы? Для веса? Делали бы одной. Если так уж хочется, можно в зависимости от диапазона цвет фона менять. И не было бы этого геморроя. Ну, дело Ваше.  
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)  
   If Not Application.Intersect(Range("D3,D5,D7,D9,D11"), Target) Is Nothing Then  
       Unload UserForm1: UserForm2.Show  
       ActiveCell = UserForm2.TextBox1 & ":" & UserForm2.TextBox2  
       Exit Sub ' незачем проверять другие условия, если это выполнено  
   Else  
       Unload UserForm2  
   End If  
   If Not Application.Intersect(Range("B3,B5,B7,B9,B11"), Target) Is Nothing Then  
       Unload UserForm2: UserForm1.Show  
       ActiveCell = UserForm1.TextBox1  
       Exit Sub  
   Else  
       Unload UserForm1  
   End If  
End Sub

Спасибо KukLP  
Все идеально работает. Буду все переносить в файл "Авт.выдача нарядов".  
По поводу вашего недоумения "зачем вам 2 одинаковые юзерформы?" - это просто я 2 почти одинаковые для сравнения выложил. В файле "Авт.выдача нарядов" у меня 4 разные юзерформы (см. самое первое мое сообщение):  
юзерформа1 - "Выбор времени" (ее мы и обсуждали)  
юзерформа2 - "Выбор даты" (календарь, вызывается выделением одной из ячеек "дата")  
юзерформа3 - "Выбор заданий" (вызывается кнопкой "Выбор заданий")  
юзерформа4 - "Выбор лиц" (вызывается выделением одной из ячеек "ответственные лица")  
В нашей организации работают разные люди, в том числе и пенсионеры, которые с компьютером не очень дружат. Один чел. умудрился запустить все 4 юзерформы и давай кликать по ячейкам! - конечно вводилась полная хрень! Так что мне еще большая работа предстоит по устранению разных шероховатостей.  
Прошу понять меня правильно - все это не эстетство, а горькая необходимость. Дело в том, что часто бывает так, что к нам одновременно приходят 3 - 4 бригады для производства работ, приходят и сидят, ждут - когда наш электрик вручную заполнит "Наряд-допуск"(да еще в 2-х экземплярах, да для каждой бригады - свой наряд) - т.е. для 4-х бригад нужно заполнить 8 бланков, да еще без помарок и ничего не забыв.  А потом этого несчастного электрика ебут за то, что бригада пришла в 8:00, а к работе приступила в 9:00. Объяснения что за пол-часа 8 бланков заполнить нереально - руководством в расчет не принимаются - они то наряды не заполняют, не знают что это такое!  
Вот я и задался целью сделать так, чтобы заполнить и распечатать наряд можно было максимально быстро, и экономия времени в мелочах - тут не праздный вопрос!  
В инете видел ролик, где в аналогичной программе(правда платной) наряд заполняется за 30 секунд!

Пытаюсь оптимизировать код для юзерформы4. До этого все работало, правда меня не устраивало макрос делал какие-то непонятные телодвижения и не устраивало что юзерформа хранила промежуточные результаты на в ячейке листе.  
После оптимизации все заработало быстрее, но в определенных случаях юзерформа вылетает в Debug. Например: если выделить ячейку "Выдающий наряд", выбрать в списке фамилию, затем выделить ячейку "член бригады", выбрать фамилию, а затем снова выделить ячейку "Выдающий наряд" - то происходит вылет.  
Вообще - несколько раз уже пытаюсь оптимизировать эту юзерформу4, но почему-то начинаются вылеты...  уже руки опускаются...

А как будет выглядеть фрагмент макроса?:  
"Если юзерформа1 открыта - то закрыть юзерформу1, а если закрыта - то перейти к следующему условию."  
а то у меня макрос спотыкается о закрытые юзерформы, пытаясь безусловно закрыть то, что уже и так закрыто.  
Спасибо.

Спасибо большое! - пришлось кардинально переработать код листа и юзерформы4, ваша подсказка: "on error resume next" здорово выручила. теперь все работает быстро и так, как было задумано.  
Остались только "тормоза" при работе юзерформы3, но это из за большого кол-ва циклов макроса (несколько сотен), которые он проделывает в процессе построения списка. Но и тут у меня уже есть некоторые задумки.  
А в дальнейшем планирую сделать форму (или лист) "мастер" для грамотного ввода данных в "Базу2", а то сейчас кроме меня в этом никто не разберется.

Скажите пожалуйста, как вообще пользоваться этими файлами для заполнения наряда-допуска? Скачал эти файлы, а что с ними делать не понятно. Разъясните пожалуйста, очень надо.