The following code is an efficient, flexible, system-setting-independent procedure. MonthNames is either a listbox or a combobox. If StartMonth is greater than EndMonth, the list of month names will be generated in the reverse order.
Sub LoadMonthNames(MonthNames As Object, _Optional NameFormat As String =
