Помогите исправить ошибку...  
Мне нужно чтобы форма открывалась при кликании конкретно одной ячейки, а она открывается при кликании по любому месту на странице...  
 
Да, еще лист у меня защищен с разрешенными диапазонами:1)Выделение заблокированных ячеек, 2)выделение не заблокированных ячеек, 3)изменение объектов, 4)изменение сценариев  
 
Форма:  
Private Sub Calendar1_Click()  
With Application  
.DisplayAlerts = False 'ñèñòåìíûå ïðåäóïðåæäåíèÿ  
End With  
On Error Resume Next  
    ActiveCell = Calendar1.Value  
    ActiveCell.NumberFormat = "dd/mmmm/yyyy"  
    UserForm1.Hide  
End Sub  
     
Private Sub UserForm_Activate()  
    Me.Calendar1.Value = Date  
End Sub  
 
--------  
На Листе:  
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
UserForm1.Show  
End Sub  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
    If Target.Cells.Count > 1 Then Exit Sub  
    If Not Application.Intersect(Range("B3"), Target) Is Nothing Then  
        UserForm1.Show  
    End If  
End Sub  
 
----  
Модуль:  
Sub ShowCalendar()  
With Application  
.DisplayAlerts = False 'ñèñòåìíûå ïðåäóïðåæäåíèÿ  
End With  
On Error Resume Next  
    UserForm1.Show  
End Sub