Elegir un rango concreto dentro de "Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"

[ELG]

Hola! Soy nueva en este foro, así que espero estar haciendo esto bien...Me surge una duda al programar una lista para elegir varios valores. Tengo la lista, la elección de valores y todo parece ok, pero me surge el problema al querer mover el rango a uno en concreto y no dejarlo en la primera columna...

Quisiera que mi rango estuviera definido por ejemplo entre D7:D20 y si puedo hacerlo en otra pestaña, mejor, alguien me puede ayudar?

He puesto esto: 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column <> 3 Or Target.Row = 2 Then
    Exit Sub
Else
    Form1
End If
Cancel = True

End Sub

[Antoni]

Sube tu archivo y explica con un ejemplo lo que tienes y lo que quieres conseguir.

[ELG]

Ya lo he conseguido!!! 

he puesto lo siguiente: 

Private Sub UserForm_Initialize()

With Me.ListBox1
    .List = Hoja8.Range("N2:N63").SpecialCells(2).Value
    .RemoveItem 0
End With

End Sub
 

Ahora solo me queda un pequeño inconveniente, y es que al cerrar el excel me da este mensaje: 

Cómo puedo hacer para que deje de salir??