Hi,

I have put a simple combobox in to my form and have coded the values for the
drop down in the VBA, looking like this

Private Sub cboRegion_Change()

End Sub
Private Sub UserForm1_Initialize()
With cboRegion
.AddItem "NW"
.AddItem "SW"
.AddItem "SE"
.AddItem "NE"
End With
cboRegion.Value = ""
End Sub

I have checked that the combobox name is the same but every time I run it, I
get none of the above values, am I doing something really silly.

Thanks

Remove the "1" from your "UserForm1_Initialize" declaration... You should
really just select the event procedures from the drop down list provided
rather than type them in manually.

Rick



"Phil" <(E-Mail Removed)> wrote in message
news:5BCCB67F-08AE-42D1-81AE-(E-Mail Removed)...
> Hi,
>
> I have put a simple combobox in to my form and have coded the values for
> the
> drop down in the VBA, looking like this
>
> Private Sub cboRegion_Change()
>
> End Sub
> Private Sub UserForm1_Initialize()
> With cboRegion
> .AddItem "NW"
> .AddItem "SW"
> .AddItem "SE"
> .AddItem "NE"
> End With
> cboRegion.Value = ""
> End Sub
>
> I have checked that the combobox name is the same but every time I run it,
> I
> get none of the above values, am I doing something really silly.
>
> Thanks

Hi Rick

Thanks for that, thought it would be something stupid like that, teach me to
do these types of things so late at night.

Thanks Again, Phil

"Rick Rothstein (MVP - VB)" wrote:

> Remove the "1" from your "UserForm1_Initialize" declaration... You should
> really just select the event procedures from the drop down list provided
> rather than type them in manually.
>
> Rick
>
>
>
> "Phil" <(E-Mail Removed)> wrote in message
> news:5BCCB67F-08AE-42D1-81AE-(E-Mail Removed)...
> > Hi,
> >
> > I have put a simple combobox in to my form and have coded the values for
> > the
> > drop down in the VBA, looking like this
> >
> > Private Sub cboRegion_Change()
> >
> > End Sub
> > Private Sub UserForm1_Initialize()
> > With cboRegion
> > .AddItem "NW"
> > .AddItem "SW"
> > .AddItem "SE"
> > .AddItem "NE"
> > End With
> > cboRegion.Value = ""
> > End Sub
> >
> > I have checked that the combobox name is the same but every time I run it,
> > I
> > get none of the above values, am I doing something really silly.
> >
> > Thanks
>
>