check box_где вызывать продедуру ?

[Blame]

Ребят, у меня совсем простой вопрос про чек бокс, понимаю,что туплю, однако я до этого никогда не сталкивалась с этим флажком в VBA.
Если на первом листе установлена галочка в чек боксе, то после основной обработки макроса, нужно сохранить одни листы, если галочка не стоит,-то другие.

Я делала так:
в Лист 1:

Private Sub CheckBox1_Click()
    UserForms.Add(Application.Caller).Show
End Sub

и еще одну процедуру в лист1, которую надо вызывать в макросе обработки ( командой call cheeeck) :

Sub cheeeck()
Dim n_name As String
Dim wsSh As Object
If CheckBox1.Value = True Then
Application.ScreenUpdating = False
f_name = ActiveWorkbook.Name
f_path = ActiveWorkbook.Path
Sheets("Proceeding").Select
n_name = "Proceeding" & ".xls"
Sheets(Array("Лист2", "Лист3")).Select
Sheets(Array("Лист2", "Лист3")).Copy
Workbooks(1).Activate
else :
Sheets(Array("Лист4", "Лист5")).Select
Sheets(Array("Лист4", "Лист5")).Copy
End Sub

или наоборот в главной процедуре макроса написать функцию Sub cheeeck()
При обоих случаях дебаг, - в первом случае он ругается на непонятную процедуру cheeeck (она находится в Листе1), во втором собственно на сам ЧекБокс.

Как быть ? подскажите пожалуйста! очень нужно!

[Blame]

примерный внешний вид формы

[VictorM]

В общем случае это может выглядеть так:

Private Sub CheckBox1_Click()
    If CheckBox1 Then
        Макрос1
    Else
        Макрос2
    End If
End Sub

[Blame]

СУПЕР!!!!!!! СУПЕР !!!!! СУПЕР!!!!!
СПАСИБО!!!
ПОЛУЧИЛОСЬ!!!!
Работает, родимая!!!
СПАСИБО СПАСИБО СПАСИБО!!!!!!!
=*