If BDD(2, i) < x - ghe0 / (ActiveWindow.Zoom / 100) And BDD(2, i) + BDD(3, i) > x - ghe0 / (ActiveWindow.Zoom / 100) _
And BDD(1, i) < y - top0 / (ActiveWindow.Zoom / 100) And BDD(1, i) + BDD(4, i) > y - top0 / (ActiveWindow.Zoom / 100) Then
BDD_dept = i
Exit For
End If