Option Explicit
Private Sub listbox1_Change()
With ActiveCell
.Font.Size = 10
.Font.Bold = True
.Value = Me.ListBox1
End With
Unload UserForm1
End Sub
Private Sub UserForm_Activate()
'Me.Repaint: ExecuteExcel4Macro "CALL(""kernel32"",""Sleep"",""JJ""," & 1000 & ")"
Me.Repaint: Application.Wait Now + 0.000007
'ListBox1.List = [Liste!A1:A40].Value
End Sub