prevnt item selection on a userform/listbox when open

[tryagain]

Hi folks
I have a ListBox on a Userform, populated wit lot of names, adresses aso.
User have to find wanted name and then click on it and selection values writes to sheet
Problem is that when i open Userform, the already selected item is writed to sheet
even before user find and click wanted name.
Hav do i prevent this auto-selection when open ?

Private Sub ListBox1_Click()
ActiveCell = Sheets("Personelliste").Cells(Me.ListBox1.ListIndex + 3, 2)
ActiveCell.Offset(1).Select
If CheckBox1 = True Then Unload Me
End Sub

thanks in advance

 

[Andrew Poulsom]

Please post the code in the UserForm_Initialize event procedure.

 

[tryagain]

Please post the code in the UserForm_Initialize event procedure.

There is nothing
Private Sub UserForm_Initialize()
End Sub

 

[Andrew Poulsom]

Then what is causing the ListBox's Click to fire? You could try using ListBox1_Change instead.

 

[tryagain]

Found the error in start Sub

Sub VisForm() ' Show form
If ActiveCell.Column <> 2 Then Exit Sub
UserForm1.Show
' *** Next line is the problem ***
UserForm1.ListBox1.ListIndex = 22
End Sub

my bad sorry

but thanks for ur time/replies Andrew