Takvim ekleme

[muyat]

aşagıdaki kod ile L sütununda L2 ile L6 hücreleri arasına tıkladıgımda takvim açılıyor.Buraya kadar sorun yok...
Yalnız herhangi bir satırın numarasına tıklayıp o satırı tamamen seçtigimde de takvim açılıyor...Ben bunu istemiyorum.Nasıl bir değişiklik yapmamız gerekir bu durumda?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("L2:L2600")) Is Nothing Then
takvim.Show

End If
End Sub

 

[YUSUF44]

If satırından önce

If Selection.Count>1 Then Exit Sub

satırı ekleyerek deneyin.

 

[muyat]

Çok teşekkür ederim oldu