Excelabsturz in einer Listbox

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Listbox2 wird dynamisch an die selektierte Zelle der Range angepaßt
If Not Intersect(Target, Range("A8:A65000")) Is Nothing And Target.Rows.Count = 1 Then
With ListBox1
.Top = Target.Top - 70
.LinkedCell = Target.Address
.Left = Target.Offset(0, 1).Left + 15
.Visible = True
End With
Else
ListBox1.Visible = False
End If
If Not Intersect(Target, Range("B8:B65000")) Is Nothing And Target.Rows.Count = 1 Then
With ListBox2
.Top = Target.Top + 15
.LinkedCell = Target.Address
.Left = Target.Offset(0, 1).Left + 14
.Visible = True
End With
Else
ListBox2.Visible = False
End If
End Sub

ich kann in der Listbox alles anklicken und es funktioniert alles.
Srolle ich aber in der Listbox stürzt Excel ab und ich weiß nicht warum!!!
Danke im Voraus.
Grünschnabel Peter