Forms VisualBasic Script

Private Sub OKButton_Click()
    ActiveCell = ListBox1.Value
    Unload Me
End Sub