Public Sub montar(combo As ComboBox) Dim i As Long combo.Clear For i = 0 To 30 combo.AddItem DateAdd("d", i, Date) Next i combo.ListIndex = 0 End Sub Private Sub CommandButton1_Click() Call montar(Me.ComboBox1) End Sub