Hi Dave
Just learning the hardway.
Regards
John
"Dave Peterson" wrote in message
...
Just to add to Mike's response...

Mike changed the name of the procedure back to Userform_initialize. This is
the
name of one of the standard events--you can't change it (well, and expect it
to
work).



John wrote:

Hi Everyone
I've got a userform with a combo box that will not show the list unless I
press
the button to activate [ Private Sub UserForm1_Initialize() ] then everything
is
ok.
My codes are below, can anyone figure out what I forgot ?
Thanking you in advance
Regards
John

Private Sub UserForm1_Initialize()
OptionButton1 = False
OptionButton2 = False
OptionButton3 = False
OptionButton4 = False
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
CheckBox1 = False
CheckBox2 = False
With ComboBox1
.AddItem "Walking"
.AddItem "Running"
.AddItem "Tennis"
.AddItem "Bicycle"
.AddItem "Hockey"
End With
ComboBox1.Value = ""
End Sub
'Exit Button

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

'Clear Button
Private Sub CommandButton3_Click()
Call UserForm1_Initialize
End Sub

'Date window
Private Sub TextBox1_enter()
Me.TextBox1.Value = Now
End Sub

'"OK" Button
Private Sub commandbutton1_Click()

Dim RowCount As Long
Sheets("sheet1").Activate
Range("A4").Select

Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If

Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 2) = TextBox2.Value
ActiveCell.Offset(0, 6) = TextBox3.Value
ActiveCell.Offset(0, 5) = ComboBox1.Value

If OptionButton1 = True Then
ActiveCell.Offset(0, 1).Value = "Breakfast"
ElseIf OptionButton2 = True Then
ActiveCell.Offset(0, 1).Value = "Lunch"
ElseIf OptionButton3 = True Then
ActiveCell.Offset(0, 1).Value = "Dinner"
Else
ActiveCell.Offset(0, 1).Value = "Bedtime"

End If
If CheckBox1 = True Then
ActiveCell.Offset(0, 3).Value = "Yes"
Else
ActiveCell.Offset(0, 3).Value = "No"
End If
If CheckBox2 = True Then
ActiveCell.Offset(0, 4).Value = "Yes"
Else
ActiveCell.Offset(0, 4).Value = "No"
End If
Range("a4").Select
End Sub

--

Dave Peterson