Hello Rob,
I've got the following,
Private Sub CommandButton1_Click()
'
' Annuleerinvoerform1 Macro
' De macro is opgenomen op 25-11-2002 door Joep Spronck.
'
'
UserForm1.Hide
End Sub
Private Sub CommandButton3_Click()
Worksheets("Test"

.Cells(14, 8).Value = Me.TextBox1.Text
Sheets("test"

.Cells(14, 9) = Me.Calendar1.Day
Unload Me
End Sub
Private Sub ListBox1_Click()
UserForm1.ListBox1.RowSource = Sheets("test"

.Range("g14:g27"

End Sub
I don't get the information shown,
can you please help.
Joep