Mr.X

I'm still getting errors....

[VBA]
Private Sub UserForm_Activate()
LoadCombo Me.To1
LoadCombo Me.To2
LoadCombo Me.To3
LoadCombo Me.To4
LoadCombo Me.To5
LoadCombo Me.To6
LoadCombo Me.To7
LoadCombo Me.To8
LoadCombo Me.To9
End Sub
Private Sub LoadCombo(ByRef cb As MSForms.CombBox)

With cb

.AddItem Format(0, "0%")
.AddItem Format(0.1, "0%")
.AddItem Format(0.2, "0%")
.AddItem Format(0.3, "0%")
.AddItem Format(0.4, "0%")
.AddItem Format(0.5, "0%")
.AddItem Format(0.6, "0%")
.AddItem Format(0.7, "0%")
.AddItem Format(0.8, "0%")
.AddItem Format(0.9, "0%")
.AddItem Format(1, "0%")

End With
End Sub
[/VBA]