End a with Statement with for multiple objects

[scottyp10]

I'm wondering how to avoid having to type out 'End With' after each with statement. Can anyone help?

Here's my code below:

Private Sub UserForm_Initialize()
'Start Userform Centered inside Excel Screen (for dual monitors)
Me.StartUpPosition = 0
Me.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Me.Width)
Me.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Me.Height)

'Declares the value in the date box
DateD.Value = Format(Date, "dd/mm/yyyy")

'With Statements declare the values in each of the list boxes
With TrainingType
.additem ""

With Trainer
.additem ""

With Team
.additem ""

With Stream
.additem ""

With Trainer
.additem ""

End With
End With
End With
End With
End With

End Sub

 

[mole999]

for each With you must close it End With, or you need to quantify the initial completely as Trainer.additem ""

 

[scottyp10]

i understand why i have to type the with end etc. But how can i avoid having to type 'With End' 20 times for 20 list boxes? How would i quantify that at the top and also quantify the .additem if thats possible?

thanks for the reply

 

[Ruddles]

Easy - don't use With!

TrainingType.additem ""
Trainer.additem ""
Team.additem ""
Stream.additem ""
Trainer.additem ""

 

[mole999]

i understand why i have to type the with end etc. But how can i avoid having to type 'With End' 20 times for 20 list boxes? How would i quantify that at the top and also quantify the .additem if thats possible?

thanks for the reply

as i said above or ruddles has replied below