I have  2 questions about ListBoxes:

Question 1)
Why with the following code does the LisBox1 always display in Design Mode?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If ActiveCell.Column = 4 Then
       ActiveSheet.Shapes("ListBox1").Visible = -1
       ActiveSheet.Shapes("ListBox1").Select
   Else
       ActiveSheet.Shapes("ListBox1").Visible = 0
   End If
End Sub

Question 2)
Will the list box always show in the same spot on the screen regardless of
which line on the worksheet I am on.  For example.  If I am on row 10 and the
ListBox shows in the middle of the screen then if I am on row 100 will the
ListBox still show in the same postion on the screen when I click on a cell
in column D.

Thank you for your help.

Steven