Run-time eror '13": Hatası

[iplikci_80]

Arkadaşlar merhabalar EK 'te gönderdiğim çalışmada, herhangi bir satırı ve birden fazla satırı shift ve yön tuşları ile seçmeye çalıştığımda, Run-time eror '13": Hatası veriyor, bunun çözümü noktasında yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

İlgili prosedüre aşağıdaki kırmızı renkli satırı ilk satır olarak ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR=red][B]If Selection.Count > 1 Then Exit Sub[/B][/COLOR]
.
.
.

 

[iplikci_80]

Levent Bey ilginize, ayırdığınız zaman ve harcadığınız emek için çok teşekkür ederim.