С предыдущим все пошло на ура. Но дальше возникает ошибка в ComboBox1 я так понимаю опять не видит листа , или в коде?
Private Sub ComboBox1_Change()
Dim iRange As Range, iRow As Long
'With Worksheets("Лист2") -------------------- ошибка
   Set iRange = Columns(1).Find(what:=ComboBox1, LookIn:=xlValues, lookAt:=xlWhole)
       If Not iRange Is Nothing Then
           iRow = iRange.Row
       End If
  'With Worksheets("Лист2")
   ComboBox2.Value = Cells(iRow, 2)  ------ ошибка
   ComboBox3.Value = Sheets("Лист2").Cells(iRow, 3) ------ ошибка
   'End With

Огромнейшая благодарность sokol92 за подсказку. По поводу временной активации листа где нужно взять данные проскакивала у меня мысля, но насколько хватает моих познаний оно немножко замедляет работу. Или я не правильно думаю?.
Буду испытывать Вашу подсказку я думаю так будет правельней.

Теперь вообще запутался в Watches показывает значение True в строке iLastRow = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row и сдесь же выдает ошибку.

Огромная благодарность за подсказку sokol92 в моем случае это необходимость.
Я пытался во второй строке указывать лист
тоже выдает ошибку .
Уважаемый AAF в моем случае именно зависимые списки в ComboBoxданная функция мне очень подходит если разберусь с этим или форумчане направят на путь истинный. Ну сам я конечно слабоват тут и спору нет.

Уважаемый Ігор Гончаренко я говорил про мои познания если бы я знал как использовать этот метод
Я вот не пойму почему с одного листа (лист2) работает а со второго (лист1) нет

Уважаемые форумчане !!!
У Вас обалденный сайт много дал информации для таких юзеров как я. Все чему я научился благодаря примерам и информации от Вас. Но я понял что мне еще учиться и учиться.

Данная тема как бы не из новых правда нашел только вот это
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=9831
возникла необходимость приспособить код из поста Юрий М. post_184998. Сначала все было хорошо, но вот возникла необходимость запускать юзерформ из другого листа этой книги, тут и возникли проблемы. Почему то возникают ошибки.

Как Вы понимаете познания мои не очень. И поэтому обращаюсь к Вам за помощью.
Подскажите пожалуйста в чем моя ошибка