Проблема с макросом Excel

[Excelik]

Добрый день. Не могу решить проблему с макросом. Вот он:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
If Target.Count > 1 Then Exit Sub
With ListObjects(1).DataBodyRange
If Intersect(Target, .Columns(2)) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each i In .Columns(5).Cells
If i = Target Then Union(Selection, i.EntireRow).Select
Next
Application.EnableEvents = True
End With
End Sub

Что он делает: при нажатии на ячейку выделяет синим цветом строки, где находятся связанные с ним ячейкм.
Проблема: у меня 2 листа в одном файле - с первым этот макрос работает без проблем. При попытке его использовать на втором (абсолютно аналогичен, только имена, фамилии в таблицах разные) сообщает, что "индекс вне диапазона", отладчик выделяет строку
With ListObjects(1).DataBodyRange
Помогите, пожалуйста, разобраться.