list doubled in combo box

[VBABEGINER]

Hi All,
Below is my code. After every submit of my record, my user form goes initialize. This makes doubled the items in cmbActivity & cmbTaskStatus..

Any thing on this, which will not double the items in list..

Private Sub UserForm_Initialize()
mTimer.TimerOn 10
BtnStart.Enabled = False
BtnStop.Enabled = True
    
UserForm1.BackColor = RGB(200, 215, 223)


Dim Uname As String
Uname = Application.UserName
Me.LblUname = Uname


With cmbActivity
    .AddItem "Core"
    .AddItem "Non-Core"
End With


With cmbTaskStatus
    .AddItem "WIP"
    .AddItem "Completed"
    .AddItem "Pend (Queries) - Tech"
    .AddItem "Pend (Queries) - Non-Tech"
    .AddItem "Pend (Queries) - INPUT"
    .AddItem "Closed - Succesfull"
    .AddItem "Closed - Un-Succesfull"
    .AddItem "Re-Assign"
    .AddItem "Diary"
End With
End Sub

 

[MickG]

Try added ".Clear" to each Combobox , as below:-

With ComboBox1
    .Clear
    .AddItem "Dog"
    .AddItem "Cat"
    .AddItem "Mouse"
End With

 

[VBABEGINER]

Excellent Dear...Simple and Best..

 

[MickG]

You're welcome