Tom’s Tutorials For Excel: Populating a ComboBox For a Range of Years
This populates a UserForm ComboBox with years that start 10 years ago and end 10 years from now. The idea is to reasonably control the available year which a user can select. At each passing new year the code will adjust the relative list.
Private Sub UserForm_Initialize() Dim i%, j% j = Format(Date, "YYYY") For i = 1 To 21 ComboBox1.AddItem j - 10 j = j + 1 Next i End Sub