Как в середину макроса вставить UserForm1 ?

[Snekich]

Подскажите пожалуйста.

Есть макрос.
В середине макроса мне необходимо вызвать UserForm1
на которой содержится ComboBox1 и CommandButton1.

В ComboBox1 я вибираю значение.
При нажатии на CommandButton1 выбранное значение помещается в ячейку A1 (на скрытом листе),
Значение в ячейке А2 вычисляется в зависимости от значения в А1.

Далее в макросе используется значение из ячейки А2

Если я в нужное место в макросе вставляю:
UserForm1.Show
x = Sheets("Лист2").Range("А2").Value

То макрос не дает мне выбрать в ComboBox1 и продолжает выполняться.

Как сделать что бы макрос продолжал выполняться только после нажатия на CommandButton1 ?

Что то наподобии: (это не работает так как мне надо)

Sub Макрос1()
Dim x, y, z
x = 2
' условно, на самом деле тут код, который обязательно должен быть до вызова UserForm1

UserForm1.Show

' Выбирается значение в ComboBox1 и при нажатии на CommandButton1 записывается в ячейку А1.
' А2 вычисляется в зависимости от А1

y = Sheets("Лист2").Range("A2").Value ' значение полученное при помощи вывора из UserForm1
z = x + y
Sheets("Лист2").Range("A3").Value = z
End Sub

[Snekich]

Проблему решил обьявлением публичных переменных и разбитием макроса на несколько.
Простетский вопрос. Извиняюсь за беспокойство...

[slan]

а все должно было работать, как вы и написали..

[Snekich]

Сообщение от slan

а все должно было работать, как вы и написали..

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

[doober]

Проблем нет,макрос стоит и ожидает ввода