Икак правильно заменить в ComboBox Change на MouseDown

[Rise13]

На первом листе у нас расположены столбцы с фамилиями, именами и отчествами, а в столбце пол нужно сделать поле со списком чтобы выбирать пол.

Изменить Change на MouseDown
Когда меняю и выбираю в поле другой пол, Эксель вылетает.как правильно MouseDown сделать?

ThisWorkbook –

'Модуль ThisWorkbook
Private Sub Workbook_Open()
'загружаем список
Worksheets("Сотрудники").ComboBox1. Clear
Worksheets("Сотрудники").ComboBox1. AddItem _
Worksheets("Пол").Cells(2, 1).Text
Worksheets("Сотрудники").ComboBox1. AddItem _
Worksheets("Пол").Cells(3, 1).Text
End Sub

Лист1(Сотрудники) –
'Лист с именем "Сотрудники"
Dim Y As Long

Private Sub ComboBox1_Change()
If ComboBox1.Visible = False Or Y = 0 Or ComboBox1.Text = "" Then
Exit Sub
End If
If ComboBox1.Text = Worksheets("Пол").Cells(2, 1).Text Then
Cells(Y, 4).Value = "=Пол!$A$2"
Else
Cells(Y, 4).Value = "=Пол!$A$3"
End If
ComboBox1.Text = ""
Cells(Y, 4).Select
End Sub


Private Sub Worksheet_Activate()
ComboBox1.Visible = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'устанавливаем окно со списком на текущую строку
With Target
Y = .Row
ComboBox1.Visible = False
ComboBox1.Width = 15
If .Column = 4 Then
ComboBox1.Left = Cells(Y, 4).Left - ComboBox1.Width
Else
ComboBox1.Left = Cells(Y, 4).Left
End If
ComboBox1.Top = Cells(Y, 4).Top
ComboBox1.Height = Cells(Y, 4).Height
End With
ComboBox1.Visible = True
End Sub

Лист2(Пол) –
'Лист с именем "Пол"

Private Sub Worksheet_Activate()
Worksheets("Сотрудники").ComboBox1. Visible = False
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'загружаем список
Worksheets("Сотрудники").ComboBox1. Clear
Worksheets("Сотрудники").ComboBox1. AddItem Cells(2, 1).Text
Worksheets("Сотрудники").ComboBox1. AddItem Cells(3, 1).Text
End Sub

[slan]

а у вас интересно сделано - элементы комбо выбора пола берутся из ячеек..

типа в любой момент вместо обычных жен и муж можно свои подставить..

[slan]

ps приложили бы файл что ли..

[IgorGO]

отметьте столбец ПОЛ, проверка данных, список, впишите муж.;жен., жмите Ok. проверяйте.