Se você quer dar laços preferivelmente, a seguir você pode usar o código que você afixou no submarino da inicialização, mas você não quer x + 1, você quer x:
1: 2: 3: 4: 5: 6: 7: 8:
UserForm_Initialize secundário confidencial () X não ofuscante como por muito tempo Com Me.DaysOfSupply Para x = 1 a 100 .AddItem x X seguinte Extremidade com Submarino da extremidade